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IDENTIFICATION 


PRODUCT ID: AC -17758-MC 

PRODUCT TITLE: CZTKEBO TK25 FRT END FUNC #1 

PRODUCT DATE: 7 MAY 1985 

DEPARTMENT: TAPE AND OPTICAL DIAGNOSTIC ENGINEERING 
AUTHOR : RAYMOND CHANG 


COPYRIGHT (C) 1984,1985 BY 
DIGITAL EQUIPMENT CORPORATION, 
MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
a hig CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Cc ION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT 
1.0 ABSTRACT 


THIS IS A PDP-11/LSI RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF AN TK25 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM (Q-BUS 
OR UNIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES: CZTKE, 
CZTKF, CZTKG, CZTKH. SUCCESSFUL RUN EXAMPLES, AND TEST DESCRIPTIONS 
HAVE BEEN PROVIDED FOR EACH PROGRAM. 


THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING FUNCTIONS, 
AND AID IN DEVICE REPAIR. REFERENCE THE FOLLOWING DIGITAL EQUIPMENT 


DOCUMENTS: 


1. CIQPMAO XXDP+ PROGRAMMER'S MANUAL; DOCUMENT NUMBER 
AC-S296A-AC; DATE: 14 JULY 1980. 


1.1 REVISION HISTORY 
CZTKEAO CAPRIL 1984) NEW RELEASE 


CZTKEBO (7 JUNE 1984) REMOVE INTERRUPT PRIORITY HARDWARE 


QUESTION FROM P TABLE. 


(8 EE a ee SS SEE 


SEQ 3 
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2.0 REQUIREMENTS 


2.1 HARDWARE REQUIREMENTS 


POP-11 FAMILY PROCESSOR WITH 32K WORDS OF MEMORY 
TK25 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CAUTION: DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/0 PAGE) 


2.1.1 OPTIONAL HARDWARE - 


FOUR TK25 CONTROLLERS PER PDP-11, ONE 
DRIVE PER CONTROLLER 


2.2 SOFTWARE REQUIREMENTS 


PDP-11 DIAGNOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+) 


2.3 PREREQUISITES 


FUNCTIONAL PDP-11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 


A RT A A ERR AS RR RR RS A 


SEQ 4 
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3.1 OPERATOR COMMANDS 


MACRO M1200 07-JUN-84 09:48 PAGE 6 


THE TK25 DIAGNOSTICS ARE PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAMS. ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN 
THE PDP-11 PROGRAMMER’S MANUAL “CIQPMAO XXDP” PROGRAMMER’S MANUAL NUMBER 


AC-S296A-AC. 


BOOT THE DIAGNOSTIC XXDP+ MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 


CHMDLEO XXDP+ DL MONITOR 
BOOTED VIA UNIT 0 
28K NON-UNIBUS SYSTEM 


ENTER DATE <DD-MMM-YY>: 29-JAN-82 
RESTART ADDRESS: 152010. 
THIS IS XXDP+ TYPE “H” OR “H/L” FOR HELP. 


-R CZTKEA 


CZTKEA.BIC 


DRS-EO 

CZTKE-A-0 

CZTKEA TK-25 FRT END FUNC #1 UNIT IS TK25 
RSTRT ADR 147642 

DR>START/FLAG: PNT: HOE 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. 


THE COMMAND HAS TWO 


SWITCHES ON WHICH ARE “PRINT EACH TEST NBR. AS EXECUTED” AND “HALT ON 


ERROR”. 





SEQ 5 
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3.2 HARDWARE PARAMETERS a9 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONCE TO THE QUESTION, THE PROGRAM WILL USE IT'S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TSBA/TSDB WILL BE 172522 AND THE INTERRUPT VECTOR WILL BE 224. 


ON A “Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. .A “(CD)” IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN “(0)” INDICATES AN OCTAL NUMBER IS BEING 
gg ay i i THAT A LOGICAL RESPONSE IS TO BE MADE: “"Y” FOR 
YES, “N’ NO. 


UNITS (D) ? < ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE " UNITS ?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER BEGINNING AT 0. UP TO EIGHT UNITS CAN BE 
SELECTED FOR TESTING. 
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3.3 SOFTWARE PARAMETERS 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? < TYPE "Y" TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED. > 


INHIBIT ITERATIONS (L) N ? < TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS. > 


ENABLE RAM DUMP ON ERROR (L) N? < TYPE “Y” TO DUMP 
SELECTED RAM CONTENTS IN THE 
CONTROLLER MODULE. > 





SEQ 7 
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4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 





4.1 SUCCESSUL RUN EXAMPLES 


4.1.1 SUCCESSFUL RUN EXAMPLE - CZTKE - 


TST: 001 INITIALIZATION TEST 
TST: 002 RAM TEST 
TST: 003 COMMAND REJECT TEST 
TST: 004 WRITE CHARACTERISTICS TEST 
TST: OOS VOLUME CHECK TEST 
TST: 006 COMPLETION INTERRUPT TEST 
TST: 007 BASIC PACKET PROTOCAL TEST 
TST: 008 NON-TAPE MOTION COMMANDS TEST 
TST: 009 DMA MEMORY ADDRESSING TEST 
TST: 010 INITIALIZATION AFTER WRITE CHARACTERISTICS TEST 
TST: 011 BASIC WRITE SUBSYSTEM MEMORY TEST 
CZTKE EOP 1 
0 TOTAL ERRS 


NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 





ot 2 





Cr 
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4.2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGE 
ERROR MESSAGE EXAMPLE 


TST: O01 

CZTKE DVC FTL ERR 00001 ON UNIT 00 TST 001 SUB 000 PC: 017300 
NON-EXISTANT DEVICE REGISTER 
ADDRESS: 172500 


UNIT 0 DROPPED 
PASS ABRTD THS UNIT 
CZTKE EOP 1 

1 TOTAL ERRS 


SEQ 9 


SS ee 
s ° 
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5.0 PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES 
ARE TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/23 (LSI) 
PROCESSOR WITH A LA-120 CONSOLE. 


THE PROGRAMS RUN IN NON-ITERATIVE MODE. EACH TEST IS RUN ONCE, WITH NO 


ITERATIONS. THEREFOR, THE DEFAULT MODE (NORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL. 


5.1 RUN TIMES - CZTKE 


TEST N/I DEF 
NUMBER - ~ — 


1 

2 11 11 

3 9 9 

a 10 10 

5 12 12 

6 10 10 

7 2 2 

8 8 8 

9 5 5 

10 8 8 

11 13 13 

THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 11 IN ONE COMMAND: 

Q.V. 1 MIN 46 SECONDS 


DEFAULT 1 MIN 46 SECONDS 





SEQ 10 
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6.0 TEST DESCRIPTIONS - CZTKE 


6.1 TEST 1 - INITIALIZATION TEST 1 


AGACRERERREREREAEEAEASAEAEEEREEAEREREREERERAREEREREEREREREREEEES 
*# NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25’S * 


* CONTROLLER x 
SHAEEEEE EERE EESESESAEEEDAERESEERERAEREEEEE SRE EEREREEREEEEES 


THIS TEST VERIFIES THAT THE MODULE'S DEVICE REGISTERS ARE 

ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE BUILT-IN 
INITIALIZATION SELF-TEST MICRODIAGNOSTIC DID NOT FIND ANY BASIC PROBLEMS 
WITH THE MODULE. AREAS OF LOGIC TESTED BY THE SELF-TEST SEQUENCER ARE 
AS FOLLOWS: ROM AND PIPELINE REGISTER, SEQUENCER, INTERNAL BUSES, 2901 
MICROPROCESSOR, RAM AND TRANSPORT STATUS FLOPS. THIS TEST INITIALIZES 
THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL VIA A RESET INSTRUCTION, 
OR BY WRITING INTO THE TSSR REGISTER, AND THEN CHECKS THE CONTENTS OF 
THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS INDICATED BY SUBSYSTEM 
READY (SSR) AND NEED BUFFER ADDRESS (NBA) BITS BEING SET (1) AND ALL 
OTHER BITS CEXCEPT A17, A16, AND OFL, WHICH ARE IGNORED FOR THIS TEST) 
BEING CLEARED (0). IF THE CONTENTS OF THE TSSR ARE NOT AS EXPECTED, AN 
ERROR REPORT IS ISSUED LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE 
DISCREPANCIES. 





SEQ 11 


| cat 
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6.2 TEST 2 - RAM TEST 


SRREEOEEERERESEEESEESEEAAEAEEAEEEREEREEREAEREEEEEDRDEEEEEEEEEEEEE EEE 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 


# CONTROLLER rt 
SEERESKEEEAEEAAKESERASAAARESAARRALSEALERERELESSEERRERES ShEk4aEKEEEES 


THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE CONTROLLER CAN 
PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT EACH RAM 
LOCATION IS UNIQUELY ADDRESSED (IE: THAT ONE AND ONLY ONE LOCATiON IS 
ACCESSED BY ANY PARTICULAR ADDRESS). THESE TESTS ARE PERFORMED BY THREE 
SUBTESTS DESCRIBED BELOW. 


6.2.1 TEST 2, SUBTEST 1: - 


THIS SUBTEST VERIFIES EACH LOCATION BY PERFORMING THE FOLLOWING SEQUENCE 
FOR EACH ADDRESS 0-377 COCTAL): 


1. THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB+1 (VIA A 
HI-WRITE BYTE). 


2. THE ADDRESSED RAM LOCATION IS READ, THEN WRITTEN INTO THE LOW 
BYTE OF THE TSBA. 


3. THE LOW BYTE OF THE TSBA IS CHECKED TO SEE IF IT CONTAINS THE 
ay Batten, ORIGINALLY WRITTEN; A DISCREPANCY IS REPORTED AS 
N . 


4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN WRITTEN INTO 
TSDB+1 CHI-BYTE WRITE), TO CAUSE THE LOCATION UNDER TEST TO 
AGAIN BE READ INTO THE LOW BYTE OF TSBA. THE LOW BYTE OF TSBA 
IS AGAIN CHECKED AND DISCREPANCIES REPORTED. 


6.2.2 TEST 2, SUBTEST 2: - 


THIS SUBTEST USES THE SAME RAM READ/WRITE TECHNIQUES AS SUBTEST 1, 
EXCEPT THAT MEMORY IS FILLED WITH ZEROS AND A ONES WORD IS “WALKED” DOWN 
THROUGH. PRIOR TO THE ALL ONES WRITE TO MEMORY THE MEMORY IS CHECKED TO 
BE SURE THAT THE ZERO WORD HASN'T “PICKED” A BIT. 


6.2.3 TEST 2, SUBTEST 3: - 


THIS SUBTEST IS SIMILAR TO SUBTEST 2, EXCEPT THAT MEMORY IS FIRST SET TO 
ALL ONES AND A BYTE OF ZEROS IS “WALKED” DOWN THROUGH MEMORY BEGINNING 
AT LOCATION TOP-2. 


SEQ 12 


Pe 
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6.3 TEST 3: COMMAND REJECT 


Tei Ti iT TT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
# NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S & 
* CONTROLLER fs 


$606 66 0066006608666 6666660606666 60 666646 066064600460640646046040 40464444424 


THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE CHARACTERISTICS 
ARE REJECTED DUE TO THE NEED BUFFER ADDRESS (NBA) BIT BEING SET IN TSSR, 
AND THAT THE TSBA, AND THE TSSR REGISTERS ARE SET IN THE PROPER STATE 
AFTER EACH COMMAND IS REJECTED. THIS TEST CHECKS THE MICROPROCESSOR 
SEQUENCING, BASIC COMMAND DECODING, AND DATI DMA HANDLING. THE TEST 
CONTAINS TWO SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS 
COTHER THAN WRITE CHARACTERISTICS) WITH THE INTERRRUPT ENABLE BIT (IE) 
BIT CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMAND; SUBTEST TWO PERFORMS SIMILARLY TO SUBTEST 1 BUT SETS 
THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN INTERRUPT IS , 
GENERATED WHEN THE COMMAND IS REJECTED. THE SUBTEST 1 SETS UP THE 
INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED INTERRUPTS. THE COMMAND 
WORD IN THE COMMAND BUFFER IS INITIALIZED TO 100000 (OCTAL) AND THE 
REMAINING THREE WORDS IN THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE 
PATTERNS. THEN THE FOLLOWING SEQUENCE IS PERFORMED: 


1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR, PROPER 
INITIAL CONDITIONS ARE VERIFIED. 


2. TSOB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO START 
PROCESSING. 


3. THE PROGRAM WAITS FOR SSR TO SET; IF SSR DOES NOT SET, AN 
ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 


4. THE CONTENTS OF THE TSSR ARE CHECKED. TSSR IS CORRECT IF IT 
CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6 DEPENDS ON THE 
STATE OF THE TAPE TRANSPORT). 


S. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN THE 
INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) IE: TSBA 
SHOULD POINT TO THE COMMAND PACKET. 


6. USING THE MAINTENANCE MODE WRAP AROUND FUNCTIONS, THE COMMAND 


IMAGE BLOCK IN THE CONTROLLER’S RAM 20 - 27 COCTAL)) ARE CHECKED; 


THE SHOULD CONTAIN A COPY OF THE FOUR COMMAND PACKET WORDS AS 
SET UP IN CPU MEMORY. 


7. THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED TO THE 
NEXT PATTERN NOT CONTAINING WRITE CHARACTERISTICS; €.G., THE 
REMAINING THREE WORDS OF THE COMMAND BUFFER ARE SEQUENCED WITH 
PSEUDO-RANDOM DATA. IF THE COMMAND WORD HAS NOT REACHED ITS 
MAXIMUM VALUE (17777+1) THE TEST SEQUENCE IS REPEATED. 


SEQ 13 
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6.4 TEST 4 - WRITE CHARACTERISTICS 


Ur rrrririririiiriiiirtititiiititititiiiii ttt ttt 
# NOTE: IF THIS TEST DETECTS A FAILURE REPLACE THE TK25'S . 


¢ CONTROLLER & 
SOSOSSHEKKSAEKESEAAEESAEAAEKAAEHSSEHASEEEKEDEEEEEEEEESEAEEDEEEESE 


THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS COMMAND. 


IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS DATA BLOCK ARE 
FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER ADDRESS (NBA) BIT IN 
THE TSSR IS HANDLED PROPERLY, AND THAT A PROPER MESSAGE PACKET IS 
STORED, WHERE APPROPRIATE. THIS TEST DOES NOT CHECK THAT THE VARIOUS 
FUNCTIONS ENABLED BY CHARACTERISTICS MODE DATA BITS OPERATE PROPERLY; 
THE FUNCTIONING OF THESE BITS IS VERIFIED IN SUBSEQUENT TESTS. ALL 
COMMANDS EXECUTED IN THIS TEST HAVE THE INTERRUPT ENABLE (IE) BIT 
CLEARED TO ZERO, SO NO INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE 
PROGRAM RUNS AT PROCEESOR PRIORITY ZERO, WITH THE INTERRUPT SERVICE 
ROUTINE SET UP TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS A 
ay — IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN THE ROM 
LINE. 


THIS TESTS VARIOUS MICROPROGRAM SEQUENCES, COMMAND DECODING, DMA LOGIC, 
AND BASIC PACKET PROTOCAL HANDLING. THIS IS THE FIRST TEST IN WHICH 
DATA DMA CYCLES (FOR STORING THE MESSAGE PACKET) ARE PERFORMED. ANY 
ERRORS IN THE BODY OF THE TEST (IE: ERRORS OTHER THAN INITIALIZATION 


ERRORS RELATED TO THE TRANSPORT BUS) DEFINITELY INDICATES A BAD CONTROLLER 


MODULE. 


6.4.1 TEST 4, SUBTEST 1: - 


VERIFIES BASIC STANDARD OPERATION (USING PROPER MESSAGE BUFFER AND 
LENGTH DATA IN AN INCREMENTING SERIES OF VALUES FOR THE FOURTH 
CHARACTERISTICS DATA IN THE CHARACTERISTICS DATA BLOCK.). AFTER THE 
COMMAND IS EXECUTED FOR EACH VALUE OF THE FOURTH CHARACTERISTICS DATA 
WORD, THE PROGRAM VERIFIES THAT: 


1. THE TSSR IS CORRECT, INCLUDING A CHECK THAT THE NBA BIT IS 
CLEARED AND THAT NORMAL TERMINATION WAS ACCOMPLISHED. 


2. THAT A PROPER MESSAGE PACKET IS STORED. 


3. THAT THE COMMAND PACKET CHRACTERISTIC DATA, AND MESSAGE PACKET 
IMAGE BLOCKS IN CONTROLLER RAM ARE CORRECT. 


SEQ 14 
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6.4.2 TEST 4, SUBTEST 2: - 


VERIFIES THAT THE COMMAND IS REJECTED AND THAT THE NBA BIT DOES NOT GET 
CLEARED IF NONZERO BITS ARE SET INTO ANY RESERVED OR UNUSED FIELD WITHIN 
THE FIRST THREE COMMAND PACKET WORDS. 


6.4.3 TEST 4, SUBTEST 3: - 


VERIFIES THAT THE COMMAND IS REJECTED AND THAT THE NBA BIT DOES NOT GET 
CLEARED IF THE MESSAGE BUFFER ADDRESS SPECIFIED IN THE CHARACTERISTICS 
DATA BLOCK DOES NOT SPECIFY A LEGAL ADDRESS. 


| corre Se er 


SEQ 15 





rr 
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6.5 TEST 5: VOLUME CHECK 


PRRPASASRESAESSAEEAEASAASEEAAAREEEAEEEDERAERAEEEEREAREAEEREREDAES 
*# NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S a 


*# CONTROLLER * 
SHEERS AEAAEAEEEEEAAEAEEEAARERAAEEEAEESREREEEAREEREEAREREEEREDE 


THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD WITHIN 
THE CONTROLLER AND APPEARING IN XSTO, IS SET BY INITAILIZE AND CLEARED BY 
EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE CVC SET. IT IS ALSO 
VERIFIED THAT A WRITE CHARACTERISTICS WITH THE CVC BIT CLEAR DOES NOT 
AFFECT THE STATE OF THE VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME 
CHECK, THAT OF PREVENTING OR ALLOWING A TAPE MOTIN COMMAND DEPENDING ON 
WHETHER VOLUME CHECK IS SET OR CLEAR , IS NOT CHECKED BY THIS TEST; 

ae = aati IS CHECKED IN THE INDIVIDUAL TESTS OF TAPE MOTION 
OMMANDS . 


THE TEST PROCEEDS AS FOLLOWS: 
1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 
2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC=0) 


3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES NOT 
CHANGE (REMAINS AT 0). 


4. A_WRITE CHARACTERISTICS COMMAND IS ISUED WITH CVC=1 AND THE VCK 
BIT IN XSTO IN THE MESSAGE BUFFER IS EXAMINED; THE VCK BIT 
SHOULD BE CLEAR (0). 


5S. A_WRITE CHARACTERISTICS COMMAND IS ISUED WITH CVC=0 AND THE VCK 
BIT IN XSTO IN THE MESSAGE BUFFER IS EXAMINED; THE VCK BIT 
SHOULD REMAIN CLEAR (0). THIS SHOULD CAUSE RAM LOCATION 0 TO 
BE WRITTEN TO ALL 1'S SINCE 2901 REGISTERS 10 AND 11, 
SPECIFYING THE RAM ADDRESS, SHOULD BE 0. RAM LOCATION IS 
VERIFIED BY LOW BYTE OF TSBA WHICH SHOULD CONTAIN ALL 1’S. 


6. THE ENTIRE RAM IS SCANNED. LOCATION 0 SHOULD CONTAIN ALL 1'‘S 
AND THE REMAINING LOCATIONS, EXCEPT FOR THE MESSAGE BUFFER 
IMAGE AREA, SHOULD CONTAIN 0. DISCREPANCIES ARE REPORTED. AN 
ERROR AT THIS POINT IS MOST LIKELY DUE TO A ROM, PIPELINE OR 
SEQUENCER PROBLEM OR A TIMING PROBLEM. 





—— 








ES RR A SS 
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6.6 TEST 6 - COMPLETION INTERRUPT 


SRREEAEEREAAEAAASAEEASERARAAAAEEEAREAAEASEREREAERAREREAEAEEEE EES 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 


*« CONTROLLER * 
SREEREASRRAREAEEASASARARERAEASAEEAEAAAASERASASEREAREREREEEEREEERE 


THIS TEST VERIFIES THAT AN INTERUPT IS GENERATED AT THE COMPLETION OF 
THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT ENABLE (IE) BIT IN 
THE COMMAND HEADER WORD IS SET. THIS TEST CHECKS THE FUNCTIONING OF THE 
INTERRUPT LOGIC AND BASIC PROCESSING OF THE IE BIT. 


THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT SERVICE 
ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE CHARACTERISTICS 
COMMAND IS ISSUED WITH THE IE BIT SET (1). IT IS VERIFIED, WHERE 
APPROPRIATE , THAT THE STATUS BIT IN XSTO OF ANY MESSAGE PACKET IS SET 
AND THAT A COMPLETTION INTERRUPT IS GENERATED. FINALLY A SEQUENCE OF 

" TWO COMMANDS IS ISSUED, THE FIRST WITH IE=1, AND THE SECOND WITH IE=0. 
IT IS VERIFIED THAT NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND 
AND THAT THE IE BIT IN XSTO IS 0. 








SEQ 17 
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6.7 TEST 7 - BASIC PACKET PROTOCAL 


SREREEAEEEERESESEAEEAEAAAEAAAEAAAEEAREAAREEEEREAEREAEREREAEREREEE 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S # 


* CONTROLLER # 
SEREERAREREDAEAEEAAEREREESASEAEEEAEAAAEEERAREREREREARERERRERE REEDS 


THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF 

THE ACK BIT IN THE COMMAND HEADER WORD, AND THE 

REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


6.7.1 TEST 7, SUBTEST 1: - 


VERIFIES THAT THE BASIC MESSAGE BUFFER RELEASE COMMAND OPERATES PROPERLY 
WHEN MESSAGE BUFFER RELEASE INTERRUPTS ARE DISABLED (ERI=0 ON PREVIOUS 
WRITE CHARACTERISTICS COMMAND). CHECKS THAT TSSR IS UPDATED PROPERLY 
AND THAT NO INTERRUPT IS GENERATED (EVEN IF THE IE BIT IN THE COMMAND 
WORD IS SET) AND THAT NO MESSAGE PACKET IS STORED. 


6.7.2 TEST 7, SUBTEST 2: - 


VERIFIES THAT THE BASIC MESSAGE BUFFER RELEASE COMMAND OPERATES PROPERLY 
WHEN MESSAGE BUFFER RELEASE INTERRUPTS ARE ENABLED (ERI=1 ON PREVIOUS 
WRITE CHARACTERISTICS COMMAND). CHECKS THAT TSSR IS UPDATED PROPERLY 
AND THAT AN INTERRUPT IS GENERATED (IF THE IE BIT IN THE COMMAND WORD IS 
SET) BUT THAT NO MESSAGE PACKET IS STORED. 


6.7.3 TEST 7, SUBTEST 3: - 


VERIFIES THAT AFTER THE CPU GIVES UP OWNERSHIP OF A MESSAGE BUFFER (VIA 
THE MESSAGE BUFFER RELEASE COMMAND), THAT A NEW COMMAND (E.G., WRITE 
CHARACTERISTICS) IS PROPERLY EXECUTED WHEN ISSUED WITH THE ACK BIT IN 
THE COMMAND HEADER EITHER SET OR CLEAR. 


6.7.4 TEST 7, SUBTEST 4: - 


VERIFIES THAT THE REGISTER VERIFICATION REFUSED (RMR) BIT IN TSSR 
OPERATES PROPERLY WHEN A COMMAND (WRITE CHARACTERISTICS) IS BEING 
EXECUTED. THE PROGRAM ISSUES THE WRITE CHARACTERISTICS COMMAND (FROM 
ONE COMMAND BUFFER) THEN IMMEDIATELY WRITES THE ADDRESS OF ANOTHER 
COMMAND BUFFER (CONTAINING ANOTHER WRITE CHARACTERISTICS COMMAND, BUT 
WITH THIS ONE SPECIFYING DIFFERENT CHARACTERISTICS DATA). WHEN SSR 
SETS, THE PROGRAM VERIFIES THAT THE FIRST COMMAND COMPLETED PROPERLY, 
THAT RMR IS SET, AND THAT THE SECOND COMMAND IS IGNORED. 





SEQ 18 


Pee aes 


~ 


SSSR 
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6.8 TEST 8 - NON-TAPE MOTION COMMANDS 


RRRRREAEERERERERREREEEEREREEERAEEEAERAEEEAEEEEEREAAREAEREAERERERE 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S a 


* CONTROLLER * 
SEAR AEEREAAEAEASEREEEAERASERARAEEAAEARAREREREAEREREA SARE RR ERERE 


THIS TEST VERIFIES PROPER OPERATION OF THE GET STATUS AND INITIALIZE 
COMMANDS. THREE SUBTESTS ARE USED. THE FIRST TWO VERIFY THAT THE 
RESPECTIVE COMMANDS RUN TO COMPLETION AND STORE A VALID MESSAGE PACKET. 








SEQ 19 


- SS 
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6.9 TEST 9 - MEMORY ADDRESSING TEST 


SREREREES  NEREERERERERERERERAE EERE AERERE EERE EERE EEAEEEEEREEERERES 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 


* CONTROLLER . 
RERAEKEAEKEKEKASASARAEAREARERAAERAREAKEEAREREREARARARESEEALALRARARL 


THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS AND ACCESS 

ALL AVAILABLE CPU MEMORY ( OTHER THAN THAT OCCUPIED BY THE DIAGNOSTIC 

AND THE DIAGNOSTIC SUPERVISOR CODE) FOR BOTH READING (DATI) AND WRITING 

(DATO). VERIFIED ARE THE POP-11 BUS DRIVERS FOR ALL AVAILABLE ADDRESS 

LINES. UP TO THIS POINT ONLY 16 BITS HAVE BEEN USED FOR DMA TRANSFERS. : 


6.9.1 TEST 9, SUBTEST 1: - 


THIS SUBTEST VERIFIES THAT THE CONTROLLER CAN FETCH A GET STATUS COMMAND 
FROM ALL AVAILABLE MEMORY LOCATIONS. TWO WORD BLOCKS ARE TESTED ONE AT 
A TIME BY FIRST SETTING ALL AVAILABLE MEMORY TO A BACKGROUND PATTERN OF 
125252. A GET STATUS COMMAND IS THEN EXECUTED TO VARIOUS ADDRESSES IN 
EACH AVAILABLE MEMORY 4K BLOCK. THE VARIOUS ADDRESSES ARE DETERMINED BY 
FLOATING FIRST A (1) THEN A (0) THROUGH THE ADDRESS BITS. 


6.9.2 TEST 9, SUBTEST 2: - 


THIS SUBTEST VERIFIES THAT THE CONTROLLER CAN DEPOSIT MESSAGE PACKETS TO 
ALL AVAILABLE MEMORY LOCATIONS. FIRST ALL AVAILABLE MEMORY IS SET TO A 
BACKGROUND PATTERN OF 125252. WRITE CHARACTERISTICS COMMANDS ARE THEN 
EXECUTED WITH MESSAGE BUFFER ADDRESSES SET TO VARIOUS ADDRESSES IN EACH 
AVAILABLE MEMORY LOCATION. THE VARIOUS ADDRESSES ARE DETERMINED BY 
FLOATING FIRST A (1) THEN A (0) THROUGH THE ADDRESS BITS. 


6.9.3 TEST 9, SUBTEST 3: - 


THIS SUBTEST VERIFIES THAT A CONTROLLER CAN FETCH A WRITE 
CHARACTERISTICS DATA BLOCK FROM ALL AVAILABLE MEMORY LOCATIONS. FIRST 
ALL_AVAILABLE MEMORY IS SET TO A BACKGROUND PATTERND OF 125252. THE 
WRITE CHARACTERISTICS COMMANDS ARE EXECUTED WITH CHARACTERISTIC DATA 
BLOCKS AT VARIOUS MEMORY ADDRESSES. THE VARIOUS MEMORY ADDRESSES ARE 
DETERMINED BY FLOATING FIRST A (1) THEN A (0) THROUGH THE ADDRESS BITS. 


6.9.4 TEST 9, SUBTEST 4: - 
THIS SUBTEST VERIFIES THAT THE NXM ERROR BIT IN THE TSSR REGISTER IS SET 


WHEN ATTEMPTING TO FETCH DATA ( A CHARACTERISTIC DATA BLOCK) FROM 
SELECTED NONEXISTANT LOCATIONS. IF NXM FAILS TO SET IT IS LIKELY THAT 








SEQ 20 
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AN LSI-11 BUS DRIVER IS FAILING TO ASSERT AN ADDRESS LINE. ADDRESSES 
ia att INCLUDE ALL COMBINATIONS OF HIGH ORDER ADDRESS BITS CIE: BITS 
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6.10 TEST 10 - INITIALIZE AFTER WRITE CHARACTERISTICS 


RARREREEREEREEEEAEEERERREAEAEAEREREEEEEE RE REASERES RE EEEAEEEEEE EES 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S & 


* CONTROLLER * 
REAEEREEEREREREREREE SERRE ERED EE ER ES EE EEEEEE ODED EEEEESEEEEEEERERE 


THIS TEST VERIFIES THAT A HAROWARE INITIALIZE COMMAND INVOKED AFTER A 
WRITE CHARACTERISTICS COMMAND SETS UP THE COMMAND, MESSAGE AND 
CHARACTERISTIC IMAGE BLOCK IN THE CONTROLLER RAM CORRECTLY. 








SEQ 22 
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6.11 TEST 11 - BASIC WRITE SUBSYSTEM MEMORY COMMAND 


REREREREEREEEAREREEEERERAEEEEAEEEREERAREEREREEEE REED EERE RERAEE ERE 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 


* CONTROLLER * 
SRREEREAERERERERAEERAEEEEREEREEEEESEEEEE EERE ESSERE EASE EE EREREE RE 


THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A BSELO 
SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. THE TEST FURTHER VERIFIES 
MICROPROGRAM COMMAND DECODING AND HANDLING SEQUENCES. 





SEQ 23 
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746 
747 -SBTTL PROGRAM HEADER 
753 -MCALL SVC 
754 000000 svc ; INITIALIZE SUPERVISOR MACROS 
755 -ENABLE LC 
756 -NLIST BEX,CND 
762 000000 -ENABL AMA,ABS 
763 002000 - = 2000 
764 002000 BGNMOD TUV2A 
002000 TUV2A: : 
765 
766 3o¢ 
767 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
Leg ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
tad 
5 
1 
772 002000 POINTER BGNSY,BGNSFT ,BGNAU,BGNDU,BGNRPT, BGNSETUP 
773 002000 HEADER CZTKE,B,0,655.,0 
002000 LS$NAME:: sDIAGNOSTIC NAME 
002000 103 «ASCII /C/ 
002001 132 -ASCII /Z/ 
002002 124 -ASCII /T/ 
0C2003 113 -ASCII /K/ 
002004 105 -ASCII /E/ 
002005 000 -BYTE 0 
002006 000 -BYTE 0 
002007 000 -BYTE 0 - 
002010 LSREV:: sREVISION LEVEL 
002010 102 -ASCII /B/ 
002011 L$DEPO:: 30 
002011 060 «ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000001 -WORD TSPTHV 
002014 LS$TIML:: sLONGEST TEST TIME 
002014 001217 -WORD 655. 
002016 LS$HPCP:: sPOINTER TO H.W. QUES. 
002016 046052 -WORD LS$HARD 
002020 LS$SPCP:; sPOINTER TO S.W. QUES. 
002020 046200 -WORD LS$SOFT 
002022 LSHPTP:: 3;PTR. TO DEF. H.W. PTABLE 
002022 002124 -WORD LSHW 
002024 L$SPTP:: sPTR. TO S.W. PTABLE 
002024 002134 -WORD L$SW ; 
002026 LS$LADP:: sDIAG. END ADDRESS 
002026 046424 -WORD LS$LAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 -WORD O 
002032 LSCO:: 
002032 000000 -WORD O 
002034 LSDTYP:: sDIAGNOSTIC TYPE 
002034 000000 -WORD O 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 «WORD 0 
002040 LSDOTP:: ;PTR. TO DISPATCH TABLE 
002040 046372 -WORD LSDISPATCH 


Pee 





—— 
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PROGRAM HEADER 


000000 
000000 
000000 


003 
003 


000000 
000000 


000000 
003334 
022674 
000000 
000000 
022366 
022464 
000000 
003342 
104035 
000000 
021606 
022646 
022572 
021576 
000000 
000000 
000000 
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L$PRIO:: 

. WORD 
LSENVI:: 

WORD 
LSEXP1:: 

. WORD 
LS$MREV:: 

BYTE 

-BYTE 
LSEF:: 

. WORD 

. WORD 
L$SPC:: 

WORD 
L$DEVP:: 

WORD 
LS$REPP:: 

.- WORD 
LSEXP4:: 

. WORD 
LSEXPS:: 

. WORD 
LS$AUT:: 

. WORD 
L$DUT:: 

. WORD 
L$LUN:: 

. WORD 
LS$DESP:: 

. WORD 
L$LOAD:: 

EMT 
LSETP:: 

. Dd 
LSICP:: 

WORD 
LSCCP:: 

. WORD 
LSACP:: 

. WORD 
LSPRT:: 

WORD 
LS$TEST:: 

. WORD 
LSOLY:: 

. WORD 
LSHIME:: 

WORD 





sDIAGNOSTIC RUN PRIORITY 

sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 

;SVC REV AND EDIT @ 


CSREVISION 
CsEDIT 
e sDIAG. EVENT FLAGS 
0 
; POINTER TO DEVICE TYPE LIST 
L$OVTYP 
sPTR. TO REPORT CODE 
L$RPT 
0 
0 
sPTR. TO ADD UNIT CODE 
L$AU 
sPTR. TO DROP UNIT CODE 
L$Ou 
9 sLUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
P sPOINTER TO ERRTBL 
sPTR. TO INIT CODE 
LSINIT 
sPTR. TO CLEAN-UP CODE 
LSCLEAN 
sPTR. TO AUTO CODE 
L$AUTO 
sPTR. TO PROTECT TABLE 
L$PROT 
P sTEST NUMBER 
5 sDELAY COUNT 
5 sPTR. TO HIGH MEM 


—— 
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ie -SBTTL DEFAULT HARDWARE P-TABLE 
6 see 
777 s THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
778 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
Aa ; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
g7e 
781 002122 BGNHW ODFPTBL sDEFAULT HARD-P-TABLE 
002122 000003 -WORD L10000-L$HW/2 
002124 LSHW:: 
702 002124 OF PTBL 
783 002124 172522 -WORD 172522 s 2ND (OF 2) REGISTERS. 
784 002126 000224 -WORD 224 s INTERRUPT VECTOR 
785 002130 000240 -WORD PRIOS s INTERRUPT PRIORITY. 
786 002132 ENDHW 
002132 L10000: 


wrens 





~—— 
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788 -SBTTL SOFTWARE P-TABLE 
789 
790 gee 
791 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
“ ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
+) i-- 
794 002132 BGNSW SFPTBL 
002132 000004 «WORD L10001-L$SW/2 
002134 L$SW:: 
795 002134 SFPTBL:: 
796 002134 000000 TRANSTST:: -WORD 0 sENABLE RAM DUMP IF =1 
797 002136 000000 NOITS:: «WORD O ; INHIBIT ITERATION OPTION. 
798 3... O = ITERATE. 
799 3 ...-NZ = INHIBIT ITERATE. 
800 002140 000031 LERRMAX: : -WORD 25. ; LOCAL (PER TEST) ERROR LIMIT 
801 002142 000310 GERRMAX: : «WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
802 002144 ENDSW 
002144 L10001: 
803 





os 
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SOFTWARE P-TABLE 


836 002144 


SEE Ee ase cee ot al 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000040 
000037 
000036 
000035 
000034 
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-SBTTL GLOBAL EQUATES SECTION 


-SBTTL GLOBAL EQUATES SECTION 





SEQ 28 


tee 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST. 


EQUALS ; GET STANDARD EQUATES. 


é 
; BIT DIFINITIONS 


BIT15== 100000 
BIT14== 40000 
BIT13== 20000 
BIT12=*= 10000 
BIT11== 4000 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 


BIT9== BITO9 
BIT8== BITOS 
BIT7== BITO7 
BIT6== BITO6 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITU3 
BIT2== BITO2 
BITi== BITOL 
BITO== BITOO 


3 
; EVENT FLAG DEFINITIONS 


s  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. 
EF .RESTART== 31. 
EF .CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 


° 
; PRIORITY LEVEL DEFINITIONS 


3 START COMMAND WAS ISSUED 

: RESTART COMMAND WAS ISSUED 

; CONTINUE COMMAND WAS ISSUED 

; A NEW PASS HAS BEEN STARTED 

; A POWER-FAIL/POWER-UP OCCURRED 
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000340 PRIO7== 340 
000300 PRI06== 300 
000240 PRIOS== 240 
000200 PRI04== 200 
000140 PRIO3*= 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 PRIOO== 0 
é 
sOPERATOR FLAG BITS 
é 
000004 EVL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 I0U== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
any 100000 HOE== 100000 
838 002144 KT1i1 sDEFINE MEMORY MANAGEMENT REGISTERS 


-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3#KT11 VECTOR ADDRESS 


000250 MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 
177574 SR1i= 177574 
177576 SR2= 177576 
172516 SR3= 172516 
.IF NB 


;#USER “I” PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 

UIPDRi= 177602 

UIPDR2= 177604 

UIPDR3= “177606 

UIPDR4= 177610 

UIPDRS= 177612 

UIPDR6= 177614 

UIPDR7= 177616 

LIF NB 

;#USER “D” PAGE DESCRIPTOR REGISTORS 

UDPDRO= 177620 

UDPDR1= 177622 

UDPDR2= 177624 

UDPDR3= 177626 

UDPDR4= 177630 ae 
UDPDRS= 177632 

UDPDR6= 177634 

UDPDR7= 177636 


;#USER “I” PAGE ADDRESS REGISTERS 


Gee btik tama, Sea at et ieaatnal 





_—- 
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UIPARO= 177640 
UIPAR1= 177642 
UIPAR2= 177644 
UIPAR3= 177646 
UIPAR4= 177650 
UIPARS= 177652 
UIPAR6= 177654 
UIPAR7= 177656 
-IF NB 

s#USER “D" PAGE ADDRESS REGISTERS 
UDPARO= 177660 
UDPAR1= 177662 


-IF NB 

s*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
SIPDRO= 172200 

SIPDOR1= 172202 

SIPDR2= 172204 

SIPOR3= 172206 

SIPDOR4= 172210 

SIPORS= 172212 

SIPDR6= 172214 

SIPDR7= 172216 


s*SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 
SDPDRO= 172220 
SOPDR1i= 172222 
SDPDR2= 172224 
SDPOR3= 172226 
SDPDR4= 172230 
SDPDRS= 172232 
SDPDR6= 172234 
oe 172236 


s*SUPERVISOR "I" PAGE ADDRESS REGISTERS 
SIPARO= 172240 
SIPAR1= 172242 
SIPAR2= 172244 
SIPAR3= 172246 
SIPAR4= 172250 
SIPARS= 172252 
SIPAR6= 172254 
SIPAR7= 172256 


s#SUPERVISOR “D” PAGE ADDRESS REGISTERS 
SDPARO= 172260 
SDPAR1= 172262 
SDPAR2= 172264 
SDPAR3= 172266 
SDPAR4= 172270 


SEQ 30 
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SDPARS= 172272 
SDPAR6= 172274 
SDPAR7= 172276 


ENOC 

-ENDC 

s*KERNEL “I” PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPDR1= 172302 
172304 KIPOR2= 172304 
172306 KIPOR3= 172306 
172310 KIPDR4= 172310 
172312 KIPORS= 172312 
172314 KIPDR6= 172314 
172316 KIPDR7= 172316 

IF NB 


s*KERNEL “D” PAGE DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPOR1= 172322 
KDPDR2= 172324 
KDPDR3= 172326 
KDPOR4= 172330 
KDPORS= 172332 
KDPOR6= 172334 
KDPOR7= 172336 


-ENDC 
s#KERNEL “I” PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARi= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 KIPAR7= 172356 


-IF NB 
s*KERNEL “D” PAGE ADDRESS REGISTERS 
KDPARO= 172360 
KDPAR1= 172362 
KDPAR2= 172364 
KDPAR3= 172366 
KDPAR4= 172370 
KDPARS= 172372 
KDPAR6= 172374 
KDPAR7= 172376 
-ENDC 





qa owe 
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000004 
000060 
177560 
177562 


100000 
040000 
020090 
010000 
004000 
002000 
001400 
000200 
000100 
000060 
000016 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
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i 
; SOME GENERAL EQUATES. 


ERRVEC== 
TTIVEC== 
TTICSR== 
TTIBFR== 


- SBTTL 





SEQ 32 


TK-25 REGISTER AND PACKET DEFINITIONS 


4 

60 
177560 
177562 


; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
s INTERRUPT VECTOR FOR CONSOLE INPUT 

s BUS ADDRESS OF CONSOLE INPUT 

s CONSOLE INPUT DATA BUFFER 


3+ 
sBIT DEFINITIONS FOR TSSR REGISTER 


BIT1i5 
BIT14 
BIT13 
BIT12 
BITi1 


BIT10 
BIT9!BITS 


BIT? 
BIT6 


FATERR= BIT4!BITS 
TERCLS= BIT3!BIT2!BIT1 


3* 


XSOTMK= 
XSORLS= 
XSOLET= 
XSORLL= 
XSOWLE = 
XSONEF = 
XSOILC= 
XSOILA= 
XSOMOT = 
XSOONL = 
XSOIE= 

XSOVCK= 
XSOPED= 
XSOWLK = 
XSOBOT= 
XSOEOT= 


BITiS 
BIT14 
BIT13 
BIT12 
BITi1 
BIT10 
BIT9 
BITS 
BIT? 
BIT6 
BITS 
BIT4 
BIT3 
BIT2 
BIT1 
BITO 


sSPECIAL CONDITION 

sBUS INTERFACE ERROR 
sSANITY CHECK ERROR 
sMODIFICATION REFUSED 
sNONEXISTANT MEMORY ERROR 
sNEED BUFFER ADDRESS 
sEXTENDED ADDRESS BITS 
s;SUB SYSTEM READY 

;OFF LINE BIT 

sFATAL TERMINATION ERROR CODES 
s TERMINATION CODES 


a 
a FOR EXTENDED STATUS REGISTER 0 


sTAPE MARK DETECTED 
sRECORD LENGTH SHORT 
sLOGICAL END OF TAPE 
sRECORD LENGTH LONG 


. WRITE LOCK ERROR 


sNON EXECUTABLE FUNCTION 
sILLEGAL COMMAND 
sILLEGAL ADDRESS 
s;TAPE IN MOTION 

s TRANSPORT ON LINE 

s INTERRUPT ENABLE 
sVOLUME CHECK BIT 
sPHASE ENCODED DRIVE 
sWRITE LOCKED 
sBEGINNING OF TAPE 
sEND OF TAPE 


i* 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


:(XST1) 
ge 


pre eas 
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900 100000 X1.0LT = BITIS sDATA LATE 
901 040000 X1.SPARE= BIT14 sNOT USE 
902 020000 X1.COR = BIT13 sCORRECTABLE DATA ERROR 
903 017375 X1.MBZ = BIT12+BIT11+BIT10+BIT9+B1T7+BI1T6+BIT5+B114+B1IT3+B1T2+BITO sALWAYS 0 
904 000400 X1.RBP = BITS sREAD BUS PARITY ERROR 
oes 000002 X1.UNC = BIT1 sUNCORRECTABLE DATA OR HARD ERROR 
907 :¢ 
908 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
ms 3(xST2) 
ge 
911 100000 X2.0PM = BIT1I5 sOPERATION IN PROGRESS (TAPE MOVING) 
912 040000 X2.RCE = BIT14 sRAM CHECKSUM ERROR 
913 035400 X2.SPARE= B1IT13+BIT12+BIT11+BIT9+BITS sNOT USED BY TK-25 CALWAYS=0) 
914 002000 X2.WCF = BIT1O sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
915 000200 X2.EXTF = BIT7 sIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
9% 000100 X2.BUFE = BIT6 sIF WRITE CHAR CMD THEN = BUFFERING ENABLED 
917 000077 : X2.REV = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
ae 000007 X2.UNIT = BIT2+BIT1+BITO sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
1 
920 3¢ 
921 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
be 3(XST3) 
2 :- 
924 177400 X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 
925 000200 X3.SPARE= BIT7 sNOT USED BY TK-25 
926 000100 X3.0PI = BIT6 sOPERATION INCOMPLETE 
927 000040 X3.REV = BITS sREVERSE 
928 000026 X3.TRF = BIT4 ; TRANSPORT RESPONSE FAILURE 
929 000010 X3.D0CK = BIT3 sDENSITY CHECK 
930 000006 X3.MBZ =BIT2+BIT1 sNOT USED ALWAYS 0 
a 000001 X3.RIB = BITO sREVERSE INTO BOT 
933 3+ 
934 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
935 3(XST4) 
936 s- 
937 100000 X4.HSP = BIT1I5 sHIGH SPEED 
938 040000 X4.RCE = BIT14 sRETRY COUNT EXCEEDED 
939 020000 X4.TSM = BIT13 s TRANSPORT SPECIAL MODE 
940 017400 X4.MBZ = BIT12+BIT11+BIT10+BIT9+BITS8 sNOT USED ALWAYS 0 
ook 000377 X4.WRC = 000377 sWRITE RETRY COUNT FIELD 
2 
943 
944 3¢ 
945 ; 
4 ;TSSR TERMINATION CODES (BIT 0-2) 
94 3 
948 s- 
949 
950 000006 TSREJ= 342 sCOMMAND REJECTED 
a 000006 UNREC= 6 sUNRECOVERABLE ERROR 
2 
953 i* 
954 H 
a sDEVICE REGISTER OFFSETS 
6 ; 
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TK-25 REGISTER AND PACKET DEFINITIONS 


957 8° 
958 a 
959 177776 TSBA== -2 
960 177776 TSBAL== -2 
961 177776 TSOB== -2 :TSDB/TSBA REGISTER 
962 177776 TSOBL== -2 ;TSDOB/TSBA REGISTER 
963 177777 TSBAH== -1 
964 177777 TSOBH== -1 ;TSDB/TSBA REGISTER HIGH BYTE 
965 000000 TSSR== 0 ;TSSR REGISTER 
ae 000001 TSSRH== 1 ;TSSR REGISTER HIGH BYTE 
968 3+ 
or ; TSDOB ADDRESS BIT DEFINITIONS 
3 - 
ore 000003 A1716 = BIT1+BITO sADDRESS BITS 17;16 ARE IN 1:0 
973 3+ 
ors ; COMMAND DEFINITIONS 
3 a 
976 000017 P.GETSTAT = 17 :GET STATUS 
977 000013 P. INIT = 13 s INITIALIZE 
978 000012 P.CONTROL = 12 sCONTROL COMMANDS 
979 000011 P.FORMAT = 11 sFORMAT 
980 000010 P.POSITION = 10 ;POSITION 
981 000006 P.WRTSUB = 6 ;SUBSYSTEM WRITE 
982 000005 P.WRITE = 5 ;WRITE 
983 000004 P.WRTCHAR = 4 sWRITE CHARACTERISTICS 
984 000001 P.READ = 1 ;READ 
985 
986 3+ 
987 ; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
988 s- 
989 100000 P.ACK = BIT15 ;BUFFER AVAIL FOR CONTROLLER 
990 040000 P.CVC = BIT14 ;CLEAR VOLUME CHECK 
991 020000 P.OPP = BIT13 sREVERSE SEQUENCE OF DATA BITS 
992 010000 P.SWB = BIT12 ;SWAP BYTES IN MEMORY 
993 007400 P.MODE = BIT11!BIT10!BIT9!BITS ;EXTENDED COMMAND MODE FIELD 
994 000200 P.IE = BIT7 sINTERRUPT ENABLE 
995 000140 P.FMT= BIT6!BITS sPACKET HEADER TYPE CALWAYS=0) 
ae 000037 P.CMD = 37 sMAJOR COMMAND FIELD 
3¢ 
8 ; CONTROL COMMAND MODE CODES 
: - 
1000 000000 PC .RELEASE = 0«256. s;RELEASE BUFFER 
1001 000400 PC .REWIND = 1*256. ;REWIND 
1002 001000 PC .NOOP = 2%256. 3NO-OP 
1003 002000 PC .IEREW = 44256. sREWIND IMMEDIATE INTERRUPT 
1004 002400 PC .ERASE = 5*«256. sSECURITY ERASE 
1005 
1006 3+ 
1007 ; CONTROLLER RAM DEFINITIONS 
1008 - 
1009 000167 RMCHBEG = 167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
1010 000200 RMCHEND = 200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
1011 000020 RMPKTBEG= 20 ;COMMAND PACKET BEGIN RAM ADDRESS 
1012 000027 RMPKTEND= 27 ;COMMAND PACKET END RAM ADDRESS 
1013 000104 RMMSGBEG= 104 sMESSAGE BUFFER BEGIN RAM ADDRESS 
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TK-25 REGISTER AND PACKET DEFINITIONS 


aaae 000117 RMMSGEND= 117 sMESSAGE BUFFER END RAM ADDRESS 
1 3+ 
1016 H 
rep sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
8 
1019 :- 
1020 
1021 000006 xSTO== 6 sEXTENDED STATUS REGISTER 0 (WORD 4) 
1022 000010 xSTi== 8. sEXTENDED STATUS REGISTER 1 CWORD 5) 
1023 000012 xST2== 10. sEXTENDED STATUS REGISTER 2 (WORD 6) 
1024 000014 xXST3== 12. sEXTENDED STATUS REGISTER 3 (WORD 7) 
000016 xST4== 14, sEXTENDED STATUS REGISTER 4 (WORD 8) 
1027 
1028 3+ 
1029 3 
rot s;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
1 ; 
1032 s- 
1033 
1034 000002 PKLOW = 2 ;LOW ORDER CHARACTERISTIC DATA POINTER 
1035 000004 PKHI = 4 sHIGH ORDER CHARACTERISTIC DATA POINTER 
aoat 000006 PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
1 
a . 000010 EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 
1040 3+ 
oor sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
042 3° 
1043 000000 BSELO =0 :BYTE 0 
1044 000001 BSEL1 = 1 sBYTE 1 
1045 000002 SEL2 = 2 ;WORD 2 
1046 000004 SELDATA = 4 :WORD 3 
1047 
1048 3+ 
eed ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
37 
1051 000000 PW .NOP = 3NO-OP 
1052 000001 PW .RDRAM =1 sREAD RAM 
1053 000002 PW.WTRAM = 2 sWRITE RAM 
1054 000003 PW.RFIFO = 3 sREAD FIFO 
1055 000004 PW.WFIFO = 4 sWRITE FIFO 
1056 000005 PW.RDSTAT = 5 sREAD STATUS 
1057 000006 PW.WCTL = 6 sWRITE TAPE CONTROL 
1058 000007 PW.WFMT = 7 sWRITE TAPE FORMAT 
1059 000010 PW.WMISC = 10 sWRITE MISCELLANEOUS 
1060 000011 PW.WNPR = 11 sWRITE NPR CONTROL 
1061 000020 PW.D22 = 20 3D0 MICROTEST 22 
1062 000021 PW.Di1l = 21 3D0 MICROTEST 11 
1063 000022 PW.D13 = 22 300 MICROTEST 13 
1064 000023 PW.NO1311 = 23 sDISABLE MICROTEST 11 AND 13 
— 000024 PW.RDEXT = 24 sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 
1066 
1067 :¢ 
eed ;BSEL1 CODES FOR WRITE TAPE CONTROL 
6 i- 
1¢70 000200 WC .IFAD = BIT7 ;IFAD - FORMATTER ADDRESS 
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1071 
1072 
1073 


000100 
000040 
000020 
000010 
000004 
000002 
000001 
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WC .IOTAD = BIT6 

WC .ITiTAD = BITS 

WC ..ISRESV = BIT4 

WC ..IREW = BITS 

WC. IRWU = BIT2 

WC .IFEN = BIT1 

WC .IGO = BITO 

3* 

sBSEL1 CODES FOR WRITE FORMAT 
g° 

WF .IHISP = BIT7 

WF. IWRT = BIT6 

WF .IREV = BITS 

WF. IWFM = BIT4 

WF .IEDIT = BITS 

WF . IERASE = BIT2 

WF ..I3RESV = BIT1 

WF .I4RESV = BITO 


sITADO - TRANSPORT ADDRESS BIT 0 
sITAD1 - TRANSPORT ADDRESS BIT 1 
sIRESVS - RESERVED #5 

sIREW - REWIND 

sIRWU = - REWIND AND UNLOAD 

sIFEN - FORMATTER ENABLE 

;GO 

;IHISP - HIGH SPEED 

sIWRT - WRITE 

sIREV - REVERSE 

sIWFM - WRITE FILE MARK 

sIEDIT - EDIT 

sIERASE - ERASE 

sIRESV3 - RESERVED #3 

sIRESV4 - RESERVED #4 


;* 
sBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
sINVERT SENSE OF EXTENDED FEATURES SWITCH 


MS .EXT . 
MS .RSFIFO . 


BIT7 
BIT4 


MS .RSTAPE = BIT3 


MS .ATTN . 


MS .RSD = BI 


3* 
; MS.ATTN SUBCODES 


g° 
MSA.NOP = 
MSA.VOL = 
MSA.NRAM= 
MSA.FRAM= 


g° 
NP.IR 
NP .OUT 
NP .LOOP 
NP .WRP 


BIT2!BIT1 
TO 


0«2 
1*2 
22 
3«2 


BIT7 
BIT6 
BITS 
BIT4 


sRESET FIFO AND INPUT PARITY ERRORR 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 


sATTENTION TRIGG 


ER FIELD 





SEQ 36 


sRESET TIMER A,B THEN DELAY TIMES IN SEL2 


sNO-OP. (NOTHING TRIGGERED) 


sSIMULATE ON-LINE/OFF-LINE TRANSISTION 


sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 


sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
3* 
; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


sINTERRUPT REQUEST (0-1 TRANSITION) 

sTAPE DATA DIRECTION OUT (0= IN) 

sENABLE TRANSPORT LOOPBACK 

sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 


3* 
; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


w 

it) 

D> 

pa 

= 
ounnunnuua 


$1. I1RESV 


BITi+BITO 
BIT1S5 
BIT14 
BIT13 


sWORD #9 BYTE 2 Ca:& lw “ASs 


s CUNDEFINED) 
sWORD #8 BYTE 1 
é 

H 


ILW H 
OUT RDY H 
IN RDY H 


TIMER A FLAG H 
TIMER B FLAG H 


PARIN H 
IRESV2 
IRESV1 
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177560 
177562 
177564 
177566 
007776 


174400 
174402 
174404 
174406 


000004 
000006 
000010 
000014 
000016 


177560 








$1. IE0T = BIT12 ; IEOT L 
$1.ITIDENT = BIT11 ; IIDENT H 
$1.ICER = BIT10 ; ICER H 
S1.IFMK = BIT9 : IFMK H 
$1.IHER = BITS ; IHER H 
SO. ISPEED = BIT7 sWORD #8 BYTE 0 ISPEED H 
SO.IRDY = BIT6 ; IRDY L 
SO. IONL = BITS ; IONL L 
SO.ILDP = BIT4 : ILOP L 
SO.IDBY = BIT3 ; IDBY L 
SO.IRWD = BIT2 ; IRWO L 
SO.IFBY = BIT1 ; IFBY L 
SO.IFPT = BITO ; IFPT L 

; SPECIAL KEYBORD STUFF FOR MOVER PROGRAM 


TKS *177560 
TKB #177562 
TPS =177564 
TPB =177566 

=007776 


HIMEM 
: CONTROLLER DEFINITIONS 


CSR =174400 
BAR =174402 
DAR =174404 
MPR =174406 


DLGETS =4 
SEEK =6 
DLROHD =10 
READ =14 
DLRONH =16 

: 

; 

é 

‘ 

3 

; 
READY 1 
DLSR =13 
DLERR #177730 
DLUN =6 


DLCYL +*000177 
DLONER +=100200 


TTICSR = 


CONTROLLER COMMANDS 


177560 


sKEYBOARD STATUS REGISTER 
sKEYBOARD DATA REGISTER 

sCONSOLE PRINTER STATUS REGISTER 
sCONSOLE PRINTER DATA REGISTER 
sHIGH MEMORY MASK VALUE 


sSTATUS AND CONTROL REGISTER 
sDL_ ADORESS REGISTER 
sPLATTER ADDRESS 
sMULTIPURPOSE REGISTER 


sGET STATUS COMMAND 

sSEEK TRACK AND HEAD SELECT 
sREAD SECTOR HEADER 

sREAD COMMAND 

sREAD SECTOR NO HEADER CHECK 


sDRIVE READY SIT IN STATUS REG. 
sSTATUS AND RESET 

sMASK FOR COVER OPEN 

sHEADS UNLOADED 

sMASK FOR CYLINDER ADDRESS 
sDONE SET OR ERROR SET BITS 


sKEYBOARD INPUT STATUS 
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LL 
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1185 
1186 
1187 
1188 


177562 
177564 
177566 


TTIBFR 
TTOCSR 
TTOBFR 


177562 
177564 
177566 
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sKEYBOARD DATA REGISTER 
sCONSOLE PRINTER STATUS REG 
sCONSOLE PRINTER DATA REGIS 


SEQ 38 
ISTER 
TER 


—— 
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SPECIAL MACROS AND OPDEFS. 


ety -SBTTL SPECIAL MACROS AND OPDEFS. 
1192 
1193 3¢ 
1194 ;SAVE GENERAL REGS 1 TO 5 
1195 3° 
1196 
1197 -MACRO SAVREG 
1198 JSR RS ,REGSAV 
1199 .ENDM 
1200 
1201 3+ 
roe ; MACRO TO FORCE AN ERROR 
i- 
1204 -MACRO FORCERROR TAG, NOTSSR 
1205 -NLIST 
1206 -IIF NOF LISTALL, .NLIST 
1207 LIST 
1208 -IF 6 NOTSSR 
1209 MOV TSSRCRS),R1L sREAD TSSR 
1210 -ENDC 
1211 MOV FORCER ,FORCER sIS FORCER SET? (LEAVE C BIT ALONE) 
1212 BNE TAG ;BR IF YES 
1213 -NLIST 
1214 -IIF NOF LISTALL, .LIST 
1215 LIST 
1216 -ENDM 
1217 
1218 3¢ 
1219 ; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
1220 3 WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
1221 ; SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
1222 3 FORCER TO 177777 
ot 3 TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
ge 
1225 -MACRO FORCEXIT TAG 
1226 -NLIST 
1227 .IIF NOF LISTALL, .NLIST 
122t LIST 
1229 : MOV FORCER ,FORCER sIS FORCER NEGATIVE? 
1230 BMI TAG 3BR IF YES 
1231 -NLIST 
1232 -IIF NOF LISTALL, .LIST 
1233 -LIST 
1234 -ENOM 
1235 3° 
= ; MACRO TO INCREMENT ERROR COUNTS 
td 
1238 -MACRO NEXT.ERRNO 
1239 -NLIST 
1240 333.IIF NOF LISTALL, .NLIST 
1241 ERRNO=ERRNO+1 
1242 333.IIF NOF LISTALL, .LIST 
1243 -LIST 
1244 -ENOM 
1245 
1246 se 





- 
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SPECIAL MACROS AND OPDEFS. 


1257 000000 


1265 002144 000000 
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sMACRO TO PERFORM XOR 
ge 


«MACRO XOR A,B 
) 


MOV A, -(SP 

BIC B, CSP) 

BIC A,B 

BIS (SP)+,B 
ENDM 


EN=0 ; INITIALIZE ERROR NUMBER 
-SBTTL FORCER - FORCE ERROR FLAG 


3 
3 THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


i 
FORCER:: : FORCF TYPE AlL HARD ERRORS (THE ONFS CALLE 


- EXIST, JUST ASSUME AND TYPE THE MESSAGE. 





0 
; 
; 


SEQ 40 
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1272 -SBTTL GLOBAL DATA SECTION 

1273 

1274 pee 

1275 s;THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 

1276 3IN MORE THAN ONE TEST. 

1277 s-- 

1278 

1279 3 

1280 sTHE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 

tose sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 

1 3 

1283 002146 000000 EPRTSW «WORD 0 sPRINT SWITCH 

1284 002150 000000 UNITN: -WORD O sUNIT # UNDER TEST. 

1285 002152 000000 QVP:: «WORD O sQUICK VERIFY FLAG. 

1286 002154 000000 CSRADDR WORD O sADDRESS OF CSR FOR CURRENT DEVICE 
1287 002156 000224 IVEC:: -WORD 224 s INTERRUPT VECTOR 

1288 002160 000200 IPRI:: «WORD PRIO4 sINTERRUPT PRIORITY. 

1289 002162 000000 TSTCNT:: -WORD 0 sNUMBER OF TESTS RUN IN THIS PASS 

1290 002164 000000 LOOPCNT: : WORD 0O sREMAINING ITERATION COUNT FOR TEST 
1291 002166 000000 DEVCNT:: -WORD 0O sNUMBER OF DEVICE UNDER TEST 

1292 002170 000000 FATFLG:: -WORD 0 ;SET IF FATAL ERROR IS DETECTED IN TEST 
1293 002172 000000 INTRECV:: WORD 0O ;SET IF TAPE INTERRUPT WAS RECEIVED 
1294 002174 000000 BENBSW: : -WORD 0 sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
1295 002176 000000 EXPD:: «WORD O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
1296 0C2200 000000 RECV:: -WORD O sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
1297 002202 000000 ERRHI:: -WORD O sHIGH ADDRESS MEMORY ERROR 

1298 002204 000000 ERRLO:: -WORD 0 ;LOW ADDRESS MEMORY ERROR 

1299 002206 RAMDATA: : BLKW 16. sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
1300 002246 000000 RAMSIZ:: WORD 0 sRAM DATA SIZE FOR PRAMPKT ROUTINE 
1301 002250 000000 RCVHIADD: : WORD O sRECEIVED BUFFER HIGH ADDRESS 

1302 002252 000000 RCVLOADD: : WORD 0O sRECEIVED BUFFER LOW ADDRESS 

1303 002254 000000 COUNT: : -WORD O sTEST COUNT PATTERN 

1304 002256 000000 DATA:: -WORD 0 sTEST DATA 

1305 002260 000000 TSTFLAG:: WORD 0O sTEST FLAG WORD 

1306 002262 000000 TSTPTR:: -WORD 0O ;TSTBLK POINTER 

1307 002264 000000 PRMNO: : -WORD O sPRINT ROUTINE TEMP 

1308 002266 EXPMSG:: BLKB 100. sEXPECTED MESSAGE BUFFER DATA 

1309 002432 RECMSG:: BLKB 100. sRECEIVED MESSAGE BUFFER DATA 

1310 002576 TMPBFR: : -BLKB 80. ;TEMPORARY STORAGE FOR PRINT 

1311 002716 000000 MESBFA:: -WORD 0 sSTORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 
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- TEST DATA TABLE 


TSTBLK 


1313 
1314 
1315 
1316 


002720 
002720 
002722 
002724 
002726 
002730 
002732 
002734 
0C2736 
002740 
002742 
002744 
002746 
002750 
002752 
002754 
002756 
002760 
002762 
002764 
002766 
002770 
002772 
002774 
002776 
003000 
003002 
003004 
003006 
003010 
003012 
003014 
003016 
003020 
003022 
003024 
003026 





000000 
177777 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 
125252 
052525 
003030 
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RR ET SY ST 


SEQ 42 


-SBTTL TSTBLK - TEST DATA TABLE 


3¢ 


i 
sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 


; 
sIN SEQUENCE THE DATA IS: 


ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 


TSTBLK:: 
-WORD O 
«WORD 177777 
-WORD BITO 
-WORD' BIT1 
-WORD BIT2 
-WORD BIT3 
-WORD BIT4 
-WORD BITS 
-WORD BIT6 
-WORD BIT? 
-WORD BITS 
-WORD BIT9 
-WORD BIT1O 
-WORD BIT11 
-WORD BIT12 
-WORD ®BIT1i3 
-WORD BIT14 
-WORD BIT1i5 
WORD tCBITO 
. WORD tCBIT1 
WORD tCBIT2 
WORD tCBIT3 
. WORD tCBIT4 
.» WORD tCBITS 
. WORD tCBIT6 
-WORD *tCBIT7 
. WORD tCBIT8 
WORD tCBIT9 
WORD tCBIT10 
- WORD tCBIT1i1 
WORD tCBIT1i2 
WORD tCBIT13 
. WORD tCBIT14 
. WORD tCBITi5 
-WORD 125252 
-WORD 052525 

TBLEND==, 


sALL ZEROS 
sALL ONES 
sDATA FOR WALKING ONES 


sDATA FOR WALKING ZEROS 


sALTERNATING ONES, ZEROS 
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 
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tot -SBTTL GLOBAL ENVIRONMENT STORAGE 
3 
hy sSTORAGE FOR DEVICE REGISTERS 
1371 3 
1372 003030 000000 100000 000000 DUMMY: 0,100000,0,0 sDUMMY DEVICE REGISTERS... 
1373 003040 000000 000000 000000 0,0,0,0,0,0,0,0 
1374 3...FOR MULTI-UNIT CHECKOUT. 
1375 
1376 
1377 003060 000000 DUFLG: : -WORD 0O ;"DROPPED UNIT” FLAG. 
1378 sINHIBITS CODE IN “CLEAN-UP”. 
co 003062 000000 NODEV: : -WORD 0O sFLAG TO SAY NO DEVICE. 
1381 003064 000000 TEMP1:: «WORD 0O ;SOME TEMP LOCATIONS. 
1382 003066 000000 TEMP2:: -WORD 0O 
1383 003070 000000 XXCOMM: : -WORD 0O +XXDP+ COMM BLOCK POINTER. 
1384 003072 000000 FREE:: -WORD 0O 31ST FREE MEMORY ADDRESS... 
1385 003074 000000 FRESIZ:: -WORD 0O ;...AND SIZE CIN WORDS). 
1386 003076 000000 FREEHI: -WORD 0O ;LAST WORD IN FREE SPACE 
1387 003100 000000 KTFLG:: -WORD 0O 3KT11, MEM AVAIL FLAG - 
1388 3- .WORD 0 = <24K OR NO KT - 
1389 :- NZ = >24K AND KT. 
1390 003102 000000 KTENABLE: : -WORD 0O sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
1391 003104 002000 PST32U:: -WORD 2000 332W BLOCK ADDRESS FOR 32K START 
1392 0C3106 000000 SIFLAG:: -WORD O 3 
1393 003110 000000 BADDAT:: -WORD 0O sACTUAL DATA 
1394 003112 000000 GDDAT: : -WORD 0O sEXPECTED DATA 
1395 003114 000000 LOOPFL:: -WORD O 
1396 003116 CTAB:: sCONFIGURATION TABLES. 
1397 003116 000000 CTABM: : -WORD 0O ;CONFIG WORK. 
1398 003120 000000 -WORD 0O 
1399 003122 000000 -WORD 0 
1400 003124 000000 -WORD 0O 
1401 003126 177777 - WORD -1 ;END OF MEM TABLE. 
1402 003130 CTABE:: 
1403 sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
1404 F 
1405 3 1) = UNIT NOT TESTED 
1406 3 100000 = UNIT ONLINE, NO ERRORS 
1407 3 10XXXX = UNIT ONLINE, ENCOUNTERED XXXX ERRORS 
1408 3 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
1409 3 160001 = UNIT DROPPED, NOT IDLE AT START 
1410 3 14XXXX = UNIT DROPPED, ENCOUNTERED XXXX ERRORS 
1411 ‘ 3 
1412 003130 ERTABL: -BLKW 64. 
1413 003330 000000 ERTABE: «WORD 0O 
1414 
1415 003332 000000 SKIPT: .WORD 0 31=SKIP SUBTEST O=NO SKIP OF SUBTEST 
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GLOBAL TEXT MESSAGES 


1417 


003334 
003334 
003334 


003342 
003342 
003342 


004015 


124 


103 


113 


132 
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-SBTTL GLOBAL TEXT MESSAGES 
+4 


; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

gos 


3¢ 
sNAMES OF DEVICES SUPPORTED 
ad 


DEVTYP <TK-25> 
LS$DVTYP:: 
055 -ASCIZ /TK-25/ 
-EVEN 


3+ 
sTEST DESCRIPTION 


se DESCRIPT <CZTKEB TK-25 FRT END FUNC #1> 

L 33 

124 poy /CZTKEB TK-25 FRT END FUNC #1/ 
EV 


3* 
;BIT TO ASCII CONVERSION FOR TSSR REGISTER 
g2 


003447 TSSRBIT:: -WORD 1$,2$,3$,4$,5$,6$,7$,8$ 
003511 : -WORD 9$,10$,11$,12$,13$,148,15$,16$ 

000 1%: -ASCIZ ‘SC’ 

105 2s: -ASCIZ ‘BIE‘ 

105 3%: -ASCIZ ‘SCE’ 

122 4$: -ASCIZ ‘RMR‘ 

115 5$: -ASCIZ ‘NXM' 

101 6%: -ASCIZ ‘NBA‘ 

124 7$: -ASCIZ ‘BIT9’ 

124 8$: -ASCIZ ‘BIT8‘ 

122 9$: -ASCIZ ‘SSR‘ 

114 10$: -ASCIZ ‘OFL' 

124 118: -ASCIZ ‘BITS' 

124 12$: -ASCIZ ‘BIT4' 

124 13%: -ASCIZ ‘BIT3’ 

124 14$: -ASCIZ ‘BIT2' 

124 15$: -ASCIZ ‘BIT1' 

124 16$: -ASCIZ ‘BITO’ 


-E 
123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
116 NXR: -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
040 NXRX: -ASCIZ /#A ADDRESS: #06/ 
040 TSSX: -ASCII /#A TSBA,TSSR EXP'D: #S068A,8068N/ 
040 -ASCIZ /#A TSBA,TSSR REC'D: #068A,#06/ 
045 FUSI: ASCII /ssNSA/ 





SEQ 44 








CZTKEBO TK2S FRT END FUNC @1 
GLOBAL TEXT MESSAGES 


1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 


004021 
004050 
004113 
004117 
004154 
004176 
004233 
004305 
004355 


004425 
004426 
004431 
004465 
004541 
004643 
004711 
004754 
005011 
005104 
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125 USI: -ASCIZ 
111 NSI: -ASCIZ 
045 FNOINTR: 
116 NOINTR: .ASCIZ- 
111 IFAULT: .ASCIZ 
040 =INTX: -ASCIZ 
042 NOINIT: .ASCIZ 
042 NSINIT: .ASCIZ 
042 BRINIT: .ASCIZ 
NUL : -ASCIZ 
000 NULCR: .ASCIZ 
040 EXPGOT: .ASCIZ 
045 EXPGT2: .ASCIZ 
040 DUAD12: .ASCIZ 
115 PKTRAM:: 
103 SCME: -ASCIZ 
111 WRTMSG: .ASCIZ 
123 WRTERR: .ASCIZ 
123 RDERR: .ASCIZ 
-EVEN 


09:48 PAGE 34-1 SEQ 45 


/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

-ASCII /#NSA/ 

7 NO INTERRUPT WAS GENERATED/ 

4 INTERRUPT FAULT/ 

/#A CPU PC: 068A TSBA: #06/ 

/ “BUS-INIT” DION'T INITIALIZE CONTROLLER/ 
4 “SOFT-INIT” DIDN'T INITIALIZE THE DPU/ 

/ “BUS-RESET” DION’ T INITIALIZE THE DPU/ 


4/ 

/%N/ 

/%A EXP'D: #S068A, REC'D: #06/ 

/SNSA EXP'D: 068A, SO6SNSA REC'D: SOSA, 806/ 
/%A REGCW) WRITTEN TO: 068A REG(R) READ; EXP’D: s06SA, REC'D: #06/ 
-ASCIZ ‘RAM Contents Do Not Match Packet Sent’ 

4 CONFIG DOESN'T MATCH MFG. MASTER/ 

‘WRITE CHARACTERISTICS Failed’ 

‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 

‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 









2 nel 


CZTKEBO TK2S5 FRT END FUNC @1 
GLOBAL ERROR REPORT SECTION 


1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 005176 
005176 

1502 005176 
005176 
005202 
005206 
005212 
005214 
005216 

1503 005222 

1504 005226 
005226 
005226 

1505 

1506 

1507 

1508 

1509 

1510 

1511 005230 

1512 005232 

1513 005234 

1514 005236 

1515 005242 


003062 
003675 
000002 


000006 
005230 


177770 


004426 
000001 


012746 
012746 
010600 
104415 
062706 
000207 


000004 
1516 005262 
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-SBTTL 


GLOBAL ERROR REPORT SECTION 


zee 
; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
: CALLS THAT ARE USED IN MORE THAN ONE TEST. 

; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


gee 
BGNMSG 
NXRERR: : 
PRINTX 
Vv 


L10002: 


NXRERR 


@NXRX, NODEV sNODEV = NEXM ADDRESS. 


#6, 
PC ,EXTEND 


C$MSG 


: 
'; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


; 
EXTEND: TST 
EXTA: 0 


1$: PRINTX 


(PC)+ 


1$ 

PC ,@EXTA 
#NULCR 
#NULCR , - (SP) 
#1,-(SP) 

SP ,RO 
C$PNTX 

#4 ,SP 

PC 


; © = NO EXTENSION. 


; APPEND EXTENSION TEXT. 
; PRINT A BLANK LINE 


sNON-EXISTANT DEVICE REGISTER. 


; PRINT EXTENSION IF REQUIRED. 





SEQ 46 





CZTKEBO TK25 FRT END FUNC @1 


PRITSSR 


1542 
1543 





- PRINT TSSR CONTENTS 


010194 


010446 
012746 
012746 
010600 


104414. 


062706 
010400 
004737 
103410 


012746 
012746 
010600 
104415 
062706 
010403 
042703 
001434 
012702 
012701 
005703 
001413 
000241 
006103 
103006 
011100 
112022 
001376 
112762 
005721 
000763 
105042 


012746 
012746 


005736 
000002 


000006 
016540 


-006156 


000001 


000004 
001476 
002576 


003400 


000054 


002576 
006127 
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-SBTTL PRITSSR - PRINT TSSR CONTENTS 
3+ 
3 
sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 


sTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
sBY A MESSAGE PRINTING ROUTINE 


F 
s INPUTS: 
3 
F Ri CONTENTS OF TSSR 
3 
;SUBORDINATE ROUTINES: 
F 
3 CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
: 
Sod 
PRITSSR: 
SAVREG sSAVE GENERAL REGISTERS 
MOV R1,R4 ;SAVE THE TSSR CONTENTS 
PRINTB #TSSRFOR,R4 ;PRINT THE CONTENTS OF TSSR 
MOV R4,-(SP) 
MOV #TSSRFOR,-CSP) 
MOV #2,-C(SP) 
MOV SP ,RO 
TRAP CS$PNTB 
ADD #6,SP 
MOV R4,RO ;GET TSSR BACK FOR CHKAMB 
JSR PC ,.CHKAMB s;ARE CONTENTS AMBIGUOUS ? 
BCS S$ ;BRANCH IF NOT 
PRINTX #AMBTSSR ;SHOW CONTENTS ARE AMBIGUOUS 
MOV #AMBTSSR,-CSP) 
MOV #1,-C(SP) 
MOV SP ,RO 
TRAP C$PNTX 
ADD #4,SP 
5$: MOV R4,R3 ;CONTENTS OF TSSR 
BIC #HIADDR!FATERR! TERCLS,R3 sCLEAR ALL MULTIPLE BIT FIELDS 
BEQ 20$ ;NO BITS ARE SET 
MOV #TMPBFR,R2 ; TEMPORARY ASCII BUFFER 
MOV #TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
10$: TST R3 s;REMAINING BITS TO CONVERT 
BEQ 15$ ;BRANCH WHEN ALL ARE DONE 
CLC ;CLEAR CARRY FOR SHIFT 
ROL R3 ;SHIFT NEXT BIT TO CARRY 
BCC 13$ sBRANCH IF BIT NOT SET 
MOV C(R1),RO sPOINTER TO BIT DEFINITION 
11$: MOVB CRO)+,CR2)+ sMOVE ASCIZ TO BUFFER 
BNE 11$ sMOVE ALL BITS 
177777 MOVB #' ,,-1CR2) sINSERT A COMMA TO TERMINATE 
13$: TST (R1)+ sPOINT TO NEXT DESCRIPTION 
BR 1i0$ ;GET THE REMAINING BITS 
15$: CLRB -C(R2) ; TERMINATE THE LINE 
PRINTX #TSSDEF,#TMPBFR s;PRINT THE BIT DEFINITIONS 
MOV #TMPBFR, -( SP) 
MOV #TSSDEF , -(SP) 





CZTKEBO TK25 FRT END FUNC #1 
PRITSSR - PRINT TSSR CONTENTS 


1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 


1576 
1577 
1578 
1579 
1580 


005430 


012746 


016303 


010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001421 
006203 
006203 
006203 
016303 


010346 
012746 
012746 
010600 
104415 
062706 
012737 
010403 
042703 
001411 


010346 
012746 
012746 
010600 
104415 
062706 
022704 
001003 
012737 
005737 
001003 
012737 
013737 


012746 
012746 
010600 
104414 
062706 
012737 
000207 


000002 


000006 


177761 
006220 


006017 
000002 
000006 
177717 


006560 


006060 
000002 


000006 
000031 
176377 


005756 
000002 


000006 
100210 


005672 
002146 


005672 
002146 


005672 
000001 


000004 
005672 
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002170 


002146 


002146 
005644 


002146 


20$: 


25$: 


30$: 


31$: 


310$: 
32%: 


EPRT2: 


#2,-(SP) 
SP ,RO 
C$PNTX 
#6 ,SP 


R4 ,R3 
#tCTERCLS,R3 
TCOCOD(R3) ,R3 
N+ aan 


R4,R3 
#tCFATERR,R3 
25$ 

R3 

R3 

R3 
TSFCODCR3) ,R3 
#TFCASC,R3 
R3,-CSP> 


#6 ,SP 
#25. ,FATFLG 
4,R3 


R4, 
#t+CHIADDR,R3 
30$ 

gery 


#100210, Ra 


31 

#EPRT3 ,EPRTSW 
EPRTSW 

310$ 
#EPRT1,EPRTSW 
EPRTSW,32$+2 
#EPRT1 
#EPRT1,-CSP) 
#1,-CSP) 


#€PRT1,EPRTSW 
PC 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sDON‘T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


sDROP UNIT AFTER THIS ERROR 

sGET TSSR CONTENTS 

;sCLEAR ALL BUT EXTENDED ADDRESS 
sDON’‘T PRINT IF ZERO 

sPRINT THE EXTENDED ADDRESS BITS 


sCHECK FOR MEDIA ERROR 
;BR, IF PROBABLY NOT TAPE ERROR 





SEQ 48 


;"PROBABLY MEDIA RELETED ERROR - BAD TAPE” 


sCHECK FOR THE SWITCH EMPTY 
:BR, IF SWITCH IS NOT EMPTY 
sSET SWITCH TO DEFAULT 


sPUT REAL SWITCHABLE MESSAGE IN PLACE 


sPRINT THE ERROR MESSAGE 


sRESET TO NORMAL ERROR POINTER 
sRETURN TO CALLER 





CZTKEBO TK25 FRT END FUNC @1 
- PRINT TSSR CONTENTS 


PRITSSR 


006560 
006570 
006624 
006635 
006701 


006624 
156 
145 
165 
145 
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EPRTS: 
045 EPRT1: .ASCIZ 
045 TSSRFOR: 
045 TEXASC: 
045 TCOASC: 


045 TFCASC: 
045 TSSDEF: 
045 AMBTSSR: 
-EVEN 
006311 TCOCOD: .WORD 
162 1%: -ASCIZ 
162 2%: -ASCIZ 
160 3%: -ASCIZ 
156 4$: -ASCIZ 
143 53%: -ASCIZ 
143 6%: -ASCIZ 
162 7$: -ASCIZ 
164 8%: -ASCIZ 
-EVEN 
006635 TSFCOD: .WORD 
164 18: -ASCIZ 
163 2$: -ASCIZ 
163 3%: -ASCIZ 
163 48: -ASCIZ 
-EVEN 


‘SNSA #eee¢REPLACE CONTROLLERsseaagS! 

-ASCIZ ‘sNSA TSSR = #06’ 

-ASCIZ ‘SNSA Extended Address Bits = #06’ 
-ASCIZ ‘SNSA Termination Class Code = #T’ 
-ASCIZ ‘SNSA Fatal Termination Class Code = sT’ 
-ASCIZ ‘sNSA TSSR Bits Set: sT’ 

-ASCIZ ‘sNSA TSSR Contents Are Ambiguous’ 


1$,2$,3$,4$,5$,6$,7$,8$ 

‘Normal Termination’ 

‘Termination Condition’ 

‘Tape Status Alert’ 

‘Function Reject’ 

‘Recoverable Error - Tape Position One Record Down’ 
'Recoverable Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fatal Controller Error’ 


1$,2$,3$,4$ 

‘Internal Diagnostic Failure’ 
‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 
‘Reserved’ 





CZTKEBO TK25 FRT END FUNC @1 


PRIPKT 


1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 


003102 


007116 
000003 


000010 


020112 


007060 
000003 


000010 


007153 


000001 


000004 





nS 
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- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


3* 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


; 
INPUT: 


PRIPKT:: 


10$: 


15$: 


205: 
25$: 


-SBTTL 


PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


R 
@PKTADD,R1,R4 
R4,-CSP) 
R1,-CSP) 


C(R4)+,R2 
@PKTFRM,R1,R2 
R2,-(SP) 
R1,-C(SP) 
OPKTFRM, -( SP) 
@3,-(SP) 

SP RO 

C$PNTB 

#10,SP 

R1 

R1,R5 

25% 

@PKTNEW 
@PKTNEW, -C SP) 
#1,-(SP) 










sSAVE THE REGISTERS 

sSAVE NO. OF WORDS IN PACKET 
sABOVE 28K UNDER TEST? 

sBR IF YES 

sSET HIGH ORDER ADDRESS TO 0 
sCOPY HIGH ORDER ADDRESS 
sGET LOWER ADDRESS 

sSHIFT BIT 15 INTO C BIT 
sAND INTO HIGH ORDER. 

sPRINT PACKET ADDRESS 


sGET HIGH ORDER ADDRESS 
sBR IF NOT ABOVE 28K. 
sGET LOW ORDER ADDRESS 
sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
sGET RETURNED PAR6 ADDRESS BIAS 
SAVE WORD NUMBER 
sGET PACKET CONTENTS 
sPRINT THE DATA 


sNEXT WORD NUMBER 

sDONE ALL PACKET WORDS? 
sLOOP TILL ALL DONE 
sJUST A COUPLE NEW LINES 


= 


a 


CZTKEBO TK25 FRT END FUNC @1 
PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


1658 007056 000207 
1659 


1660 007060 
1661 007116 
1662 
1663 007153 
1664 
1665 


045 
045 


045 


116 
116 


116 
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RTS PC sRETURN 


045 PKTFRM: .ASCIZ ‘SNSA Packet Word @sD1SA = #06’ 
045 PKTADD: .ASCIZ ‘SNA Packet Address = #01805’ 


045 PKTNEW: .ASCIZ ‘SNSNSA 
-EVEN 





SEQ Si 


pice 








CZTKEBO TK25 FRT END FUNC @1 
PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


177400 


007246 
000004 


000012 


116 
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PAGE 39 


-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


3¢ 


; 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


; 
s INPUTS: 


F RL 
3 R2 


; RO 
ge 


PRIBXOR: : 
SAVREG 
MO 


045 XORBFOR: 
-EVE 


RECEIVED 
EXPECTED 


DATA 
DATA 


XOR OF EXPECTED/RECEIVED DATA 


@XORBF OR 
R3,-CSP) 
R1,-CSP) 
R2,-(SP) 
@XORBF OR 

P) 


-ASCIZ 





sSAVE THE REGISTERS 

sEXPECTED DATA 

sFORM THE EXCLUSIVE OR 
»RO sBYTE MASK 

sSAVE LOW BYTE RECV 

sSAVE LOW BYTE EXPD 

sSAVE LOW BYTE XOR 
+R2,R1,R3 ;PRINT THE MESSAGE 


o -(SP) 


sRO HAS XOR ON RETURN 
sRETURN TO CALLER 


‘SNSA EXPD: SO3SA RECV: SO38A XOR: 


SEQ S52 








CZTKEBO TK25 FRT END FUNC @1 


PRIXOR 


1724 
1725 
1726 
1727 
1728 


- PRINT EXPD, RECV AND x 


010203 


010346 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010300 
000207 


045 


007364 
000004 


000012 


116 
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-SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 
3* 


; 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


; 

s INPUTS: 

3 

H Ri RECEIVED DATA 

3 R2 EXPECTED DATA 

3 

sOUTPUT: 

8 

3 RO XOR OF EXPECTED/RECEIVED DATA 

é 

; - 

oRetTynp.. 
SAVREG sSAVE THE REGISTERS 
MOV R2,R3 sEXPECTED DATA 


xOR R1,R3 sFORM THE EXCLUSIVE OR 
PRINTB #XORFOR,R2,R1,R3 ;PRINT THE MESSAGE 
MOV R3,-(SP> 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV @XORFOR, -( SP) 


MOV R3,RO sRO HAS XOR ON RETURN 
RTS PC sRETURN TO CALLER 

045 XORFOR: .ASCIZ ‘sNSA EXPD: SO6SA RECV: SO68A XOR: #06‘ 
-EVEN 


SEQ 53 





CZTKEBO TK2S FRT END FUNC @1 
- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


PRIEQU 


1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 


1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 


007432 
007432 
007436 


007440 
007440 
007444 
007444 
007446 
007452 
007456 
007460 
007462 
007466 


007470 


000207 


010446 
012746 
012746 
010600 
104414 
062706 
000207 


045 


007470 
000002 


000006 


116 
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-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
3° 


: 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


; 

s INPUTS: 

3 

3 RO OCTAL VALUE TO CONVERT 

F Ri TABLE OF POINTERS TO ASCII EQUIVALENT 

: 

g°- 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 


3¢ 


;PRINT CONTROLLER RAM ADDRESS. 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; INPUTS: 

: R4 RAM ADDRESS 

1 

PRIRAM: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 ;PRINT RAM ADDRESS IN ERROR 


MOV R4,-(SP) 
MOV ®RAMFOR, -( SP) 


MOV SP ,RO 
TRAP CSPNTB 
ADD #6 ,SP 
RTS PC sRETURN 
045 RAMFOR: oly ‘sNSA CONTROLLER RAM ADDRESS = #06' 
-EVEN 


-SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 
3¢ 


° 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


6 
IMPLICIT INPUTS 


; 
F ERRHI - HIGH ORDER ADDRESS 
; ERRLO - LOW ORDER ADDRESS 





SEQ 54 





CZTKEBO TK25 FRT END FUNC @1 
- PRINT MEMORY ERROR ADDRESS 


PRIADD 


1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 


007532 
007532 
007536 
007542 
007546 
007550 
007552 
007554 
007554 
007556 
007560 
007564 
007570 
007572 
007574 
007600 


007602 


007646 
007646 
007652 
007656 
007662 
007664 
007666 
007670 
007670 
007672 
007674 
007700 
007704 
007706 
007710 
007714 


007716 


013700 
013701 
010102 
006101 
006100 


010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 


045 


013700 
013701 
010102 
006101 
006100 


010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 


045 


002202 
002204 


007602 
000003 


000010 


116 


002202 
002204 


007716 
000003 


000010 


116 
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3 
hg 
PRIADD: 


045 PRIAO: 


3;* 


-SBTTL 


sSAVE R1-RS UNTIL NEXT RETURN 
ERRHI,RO sGET HIGH ADDRESSS 
ERRLO,R1 sGET LOW ADDRESS , 
R1,R2 s;COPY LOW ADDRESS 
R1 sSHIFT BIT 15 TO C BIT 
RO sSHIFT INTO HIGH ORDER 
@PRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
R2,-(SP) 
RO,-(SP) 
@PRIAO, -(SP) 
#3, -(SP) 
SP ,RO 
CSPNTB 
#10,SP 
PC sRETURN 


‘ssNSA MEMORY ERROR ADDRESS = #01#05° 


PRITADD - PRINT MEMORY TEST ADDRESS 


; 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


PRITADD: 


045 PRITO: 


ERRHI 
ERRLO 


-ASCIZ 
-EVEN 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
ERRHI,RO sGET HIGH ADDRESSS 
ERRLO,R1 sGET LOW ADDRESS 
R1,R2 sCOPY LOW ADDRESS 
Ri sSHIFT BIT 15 TO C BIT 
RO sSHIFT INTO HIGH ORDER 
#PRITO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
R2,-(SP) 
RO,-(SP) 
#PRITO,-(SP) 
#3, -(SP) 
C$PNTB 
#10,SP 
PC ;RETURN 


‘sNSA MEMORY TEST ADDRESS = #01805‘ 


SEQ 55 





CZTKEBO TK25 FRT END FUNC @1 


SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


1860 007760 
1861 007760 
1862 007764 
1863 007772 
1864 010000 
1865 010002 
1866 010004 
1867 010010 
1868 010012 
1869 010016 
1870 010022 
1871 010030 
1872 010034 
1873 010040 
1874 010044 
1875 010046 

010046 

019052 

010054 

010060 

010062 

019066 


012737 
012737 
005703 
100403 
019337 
000407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 


012727 
000000 


000764 
140010 


010142 
100000 
010142 
900400 
010140 
177776 
016744 
000250 
002116 


177772 
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-SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
3* 


; 
sROUTINE TO ISSUE A SPACE RECORDS 
sCOMMAND (FORWARD OR REVERSE) 


H 

; INPUT: 

H 

; R3 NUMBER OF RECORDS TO BE SPACED OVER 

; BIT1S CONTROLS DIRECTION 

; BITi5 = © IS FORWARD 

; BIT15 = 1 IS REVERSE 

: RS FIRST DEVICE UNIBUS ADDRESS 

; REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
OUTPUT: 


CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 
; TAPE HAS BEEN MOVED 
H 
sSIDE EFFECTS: 


SPACE: : 
SAVREG sSAVE THE GENERAL REGISTERS 
010150 MOV #500. , SDELAY ;SET UP DELAY 
010140 MOV #140010, 80$ sSET UP COMMAND, SPACE FORWARD 
TST R3 s;CHECK FOR DIRECTION 
BMI 5$ 3BR, IF REVERSE INDICATED 
MOV R3,90$ ;LOAD UP NUMBER OF RECORDS TO SPACE 
BR 10$ :GO DO COMMAND 
S$: BIC #BIT15,R3 ;CLEAR DIRECTION BIT 
MOV R3,90$ ;LOAD UP NUMBER OF RECORDS TO SPACE 
010140 BIS #BIT8,80$ ;SET REVERSE BIT IN COMMAND PACKET 
10$: MOV #80$ ,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R4, TSDBCRS) ;SEND OUT COMMAND 
15$: JSR PC ,WAITF ;WAIT FOR SSR 
BCS 20$ 3BR, IF SSR IS SET AND OK 
DELAY 250 sDELAY ABOUT .25 SECONDS 
MOV #250,(PC)+ 
-WORD O 
MOV LS$DLY,(PC)+ 
-WORD O 
DEC -6(PC) 
BNE .-4 


SPACE 


010070 

010074 
1876 010076 
1877 010102 
1878 010104 
1879 010106 
1880 010112 
1881 010116 
1882 010120 
1883 010122 
1884 010124 
1885 010126 
1886 010130 
1887 010132 
1888 010132 
1889 010134 





005367 
001367 
005337 
001356 
000411 
016501 
012702 
020201 
001401 
000402 
000261 
000401 
000241 


010400 
000207 


a a 
CZTKEBO TK25 FRT END FUNC @1 


177756 
010150 


000000 
000200 
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- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


DEC -22(PC> 
BNE .-20 
DEC SDELAY ;BUMP DELAY COUNTER DOWN 
BNE i5$ ;BR, IF MORE DELAY 
BR 60$ ;BR IF TROUBLE CARRY = CLEAR 
20$: MOV TSSRCRS),R1 ;READ TSSR 
MOV #SSR,R2 ;SET UP EXPECTED 
25$: cmp R2,R1 sARE THEY OK 
BEQ 40$ ;BR, IF EQUAL = OK 
BR 60$ sTROUBLE EXIT 
40$: SEC sSET CARRY NO TROUBLE 
BR 70$ sEXIT 
= CLC ;CARRY CLEAR = ERROR 
O$: 
MOV R4,RO ;PASS PACKET ADDRESS 
RTS PC ;RETURN 


SEQ 57 





CZTKEBO TK25 FRT END FUNC @1 


SPACE 


1891 
1892 
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- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


010136 


010140 


010142 
010144 
010146 
010150 


000000 


000000 
000000 
000000 
000000 





PACKET FOR SPACE COMMAND 
-BLKB = 10-<,-TUV2AE7> 

; 

COMMAND WORD 


80$: . WORD 

sNUMBER OF RECORDS TO BE SPACED OVER WORD 

90$: «WORD 
. WORD 
«WORD 

SDELAY: .WORD 0 sDELAY COUNTER 
-EVEN 


SEQ 58 


CZTKEBO TK25 FRT END FUNC @1 


WRTCHR 


1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 


010152 
010152 
010156 
010162 
010166 
010172 
010174 
010176 
010202 
010206 
010212 
010214 
010220 
010222 
010224 
010226 
010232 
010234 
010240 
010242 
010244 
010246 
010252 


005037 
010465 
004737 
103401 
000423 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
000401 
000241 
016500 
000207 


002174 
177776 
017060 


000000 
000200 
000100 


000100 


000010 
002716 


000000 
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- WRITE CHARACTERISTICS COMMAND 


SEQ 59 


-SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 


3* 


; 
sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


+ 
INPUT: 

R4 ADDRESS OF PACKET FROM TEST 

R5 FIRST DEVICE UNIBUS ADDRESS 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
OUTPUT: 

RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 


CLR - WRITE CHARACTERISTICS FAILED 
IMPLICIT OUTPUT: 
MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 


SOFTWARE SWITCHES SET AS FOLLOWS: 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


;SIDE EFFECTS: 


WRTCHR 
SAVREG sSAVE THE GENERAL REGISTERS 
CLR BENBSW ;CLEAR BUFFER ENABLE SWITCH 
10$: MOV R4,TSDBCRS) sSEND OUT COMMAND 
JSR PC ,CHKTSSR sWAIT FOR SSR 
BCS 20$ ;BR, IF SSR IS SET AND OK 
BR 60$ ;BR IF TROUBLE CARRY = CLEAR 
20$: MOV TSSRCRS),.R1 sREAD TSSR 
MOV #SSR ,R2 SET UP EXPECTED 
BIT #OFL,R1 sWAS OFF LINE SET IN TSSR 
BEQ 25$ ;BR, IF NO OFL SET 
BIS #OFL ,R2 sMAKE THEM LOOK ALIKE 
25$: CMP R2,R1 sARE THEY OK 
BEQ 40$ ;BR, IF EQUAL = OK 
BR 60$ ; TROUBLE EXIT 
40$: ADD #8. ,R4 sPOINT TO WRT CHARA DATA PACKET 
MOV (R4),R3 sGET ADDRESS OF MESSAGE BUFFER 
MOV R3, MESBFA sSTORE FOR PRINT ROUTINES 
SEC sSET CARRY NO TROUBLE 
BR 70$ sEXIT 
60$: CLC sCARRY CLEAR = ERROR 
70$: MOV TSSRCRS),RO sRETURN TSSR CONTENTS 
RTS PC sRETURN 
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REWIND ~- POSITION TAPE (REWIND) COMMAND 


1966 -SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 
1968 i+ 

1970 THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 


TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


~ 
0. 
~ 
> 

eo © © Ge oF oe 


1977 sCALLING SEQUENCE: 


~ 
© 
~ 
oo 


1979 F DO A SOFT INIT 
1980 $ DO A WRITE CHARACTERISTICS 
1981 : JSR PC ,REWIND 
1982 3 
1983 ; INPUT: 
1984 F 
1985 F R5 FIRST DEVICE UNIBUS ADDRESS 
1986 ; 
1987 ; 
1988 ; OUTPUT 
1989 ; 
1990 3 RO THE CONTENTS OF R4 IS PASSED TO RO 
1991 3 
1992 F 
1993 37 
1994 010254 REWIND: : 
1995 010254 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1996 010260 012704 010350 MOV #RWPACK ,R4 ;GET PACKET ADDRESS 
1997 010264 010465 177776 MOV R4,TSDBCRS) ;SEND PACKET ADDRESS TO EXECUTE 
1998 010270 012703 000550 MOV #360. ,R3 sENOUGH TIME FOR 2400' REEL TO REWIND 
1999 010274 004737 016744 10$: JSR PC ,WAITF ;WAIT FOR SSR TO SET 
2000 010300 103417 BCS 20$ ;LEAVE WHEN SSR IS SET 
2001 010302 DELAY 250. sWAIT FOR .25 SECONDS 
010302 012727 000372 MOV #250. ,(PC)+ 
010306 000000 -WORD 0O 
010310 013727 002116 MOV L$DLY,(PC)+ 
010314 000000 -WORD O 
010316 005367 177772 DEC -6(PC) 
010322 001375 BNE 74 
010324 005367 177756 DEC -22(PC) 
010330 001367 BNE .-20 
2002 010332 005303 DEC R3 ;BUMP COUNTER DOWN 
2003 010334 001357 BNE 10$ sKEEP GOING 
2004 010336 000241 Le ;CLEAR CARRY TO SET ERROR 
2005 010340 010400 20$: MOV R4,RO ;PASS THE PACKET ADDRESS 
2006 010342 000207 RTS PC sRETURN 
2007 
2008 
2010 010344 -BLKB 10-<.-TUV2AE7> 
2012 019350 RWPACK: 
2013 010350 102010 -WORD 102010 sPOSTION COMMAND (REWIND) 
2014 010352 000000 -WORD O sNOT USED 








CZTKEBO TK25 FRT END FUNC @1 


CKRAM 
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- COMPARE RAM TO 1/0 PACKET 


010354 
010354 
010360 
010364 
010370 
010372 
010376 
010402 
010406 
010412 
010416 
010420 
010422 
010424 
010426 
010432 
010434 
010436 
010440 
010442 
010444 
010446 
010454 


012701 
012702 
005003 
004737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
095202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 


002206 
000020 


017060 
017060 
177777 
017060 
177776 


000027 


000010 





3* 





-SBTTL 





CKRAM - COMPARE RAM TO I/0 PACKET 


; 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


; 
INPUT: 
+ 
H 
Hy 


; 
sOUTPUT: 


3 
‘ 
é 


=: es 2 es oe ae 


10$: 


20$: 


30$: 
002246 50$: 


R4 
RS 


CARRY 


SIDE EFFECTS: 


ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


IMPLICIT OUTPUT: 
THE TABLE RAMDATA IS FILLED WITH THE 


DATA HELD IN RAM. 
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 


@RAMDATA,R1 
laces 
PC ,CHKTSSR 

PC ,CHKTSSR 

R2, TSOBHCRS) 
PC ,CHKTSSR 
TSBALCRS), (Ri) 
(R1)+,CR4)+ 
20$ 


R3 
R2 
R2 , @RMPK TEND 
10$ 


R3 
30$ 


50$ 
#8. ,RAMSIZ 
PC 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
sCLEAR THE ERROR FLAG 

sWAIT FOR SSR 

sWAIT FOR SSR TO SET 

sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

sBRANCH IF OK 

sSET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 
sREACHED END YET ? 

sBRANCH TILL ALL READ 

sWAS AN ERROR FOUND ? 

sBRANCH IF NOT 

sCLEAR CARRY TO SHOW ERROR 
sAND EXIT 

sSHOW GOOD COMPARE 


sSETUP RAMSIZ FOR PRAMPKT ROUTINE 


sRETURN 
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RAMER - READ AND DISPLAY SELECTED RAM 


2069 -SBTTL RAMER - READ AND DISPLAY SELECTED RAM 
2070 34 
2071 Fy 
adi sROUTINE TO READ THE SELECTED RAM LOCATIONS 
3 
2074 s INPUT: 
2075 F 
2076 F R5 FIRST DEVICE UNIBUS ADDRESS 
od 3 CONSOLE WILL ALSO BE PRINTED TO 
3 

2079 sIMPLICIT OUTPUT: 
2080 3 
2081 3 THE TABLE RAMDATA IS FILLED WITH THE 
2082 3 DATA HELD IN RAM. 
2083 ; 
2084 ;SIDE EFFECTS: 
2085 3 
2086 F 
2087 3° 
2088 
2089 010456 RAMER: : 
2090 010456 SAVREG ;SAVE THE GENERAL REGISTERS 
2091 010462 013705 010642 MOV RAMRSH,RS sRESET RS TO FIRST DEVICE REGISTER 
2092 010466 012701 002206 MOV #RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
2093 010472 013702 010640 MOV RAMHLD ,R2 sBYTE ADDRESS OF THE FIRST RAM DATA 
2094 010476 013703 002246 MOV RAMSIZ,R3 ;SET THE SIZE OF THE READ UP 
2095 010502 004737 017060 10$: JSR PC ,CHKTSSR ;WAIT FOR THE SSR TO SET 
2096 010506 110265 177777 MOVB R2,TSDBHC(RS) ;SELECT NEXT RAM ADDRESS 
2097 010512 004737 017060 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
2098 010516 116521 177776 MOVB TSBALC(RS),(R1)+ ;READ THE RAM DATA 
2099 010522 062702 000001 208: ADD #1,R2 sADDRESS OF THE NEXT RAM LOCATION 
2100 010526 077313 SOB R3,10$ sNUMBER OF LOCATIONS COUNTER 
2101 010530 013704 002246 MOV RAMSIZ,R4 ;GET THE RAM SIZE 
2102 010534 013702 010640 MOV RAMHLD ,R2 ;GET THE STARTING RAM ADDRESS 
2103 010540 060204 ADD R2,R4 sCALCULATE THE END ADDRESS 
2104 010542 162704 000001 SUB #1,R4 sCORRECT VALUE OF PRINTOUT 
2105 010546 PRINTX #RAMIOP,R2,R4 sRAM ADDRESS = 10 - 17, ETC. 

010546 010446 MOV R4,-(SP) 

010550 010246 MOV R2,-(SP) 

010552 012746 010644 MOV #RAMIOP, -( SP) 

010556 012746 000003 MOV #3,-(SP) 

010562 010600 MOV SP ,RO 

010564 104415 TRAP CS$PNTX 

010566 062706 000010 ADD #10,SP 
2106 010572 012701 002206 MOV #RAMDATA,R1L sADDRESS OF WHERE RAM DATA IS 
2107 010576 013703 002246 MOV RAMSIZ,R3 ;THE SIZE OF THE RAM FIELD READ 
2108 010602 005004 30$: CLR R4 ;NO EXTRA DATA LEFT OVER 
2109 010604 112104 MOVB (R1)+,R4 ;PICK UP BYTE OF RAM DATA 
2110 010606 042704 177400 BIC #177400,R4 ;GET RID OF SIGN EXTEND 
2111 010612 PRINTX #RAMPD,R4 3"010 211 111 222 377 000 123 134 ETC.” 

010612 010446 MOV R4,-(SP) 

010614 012746 010715 MOV #RAMPD , -( SP) 

010620 012746 000002 MOV #2,-(SP) 

010624 010600 MOV SP RO 

010626 104415 TRAP C$PNTX 

010630 062706 000004 ADD #6 ,SP 
2112 019634 077316 SoB R3,30$ ;LOOP UNTIL ALL PRINTED 








eee 


CZTKEBO TK25 FRT END FUNC @1 


OEE 


2113 010636 
2114 

2115 010640 
2116 010642 


2117 010644 
2118 010715 
2119 


2120 


000207 


000000 
000000 
045 
045 


116 
101 
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RAMER - READ AND DISPLAY SELECTED RAM 


50$: RTS PC sRETURN 


RAMHLD: .WORD 0 sRAM ADDR HOLDER 1ST ADDRESS 
RAMRSH: .WORD 0 sHOLDS RS FOR LATER 
045 RAMIOP: .ASCIZ ‘SNSA Ram Address (Octal) = s038A - s03sN’ 
040 RAMPD: ry ‘SA SOKA ' 
-EV 





SEQ 63 


re 
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CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA 


a} -SBTTL CKRAM2 ~- COMPARE RAM TO I/O CHARACTERISTICS DATA 
3* 
2124 3 
2125 sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 
4 sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
3 
2128 s INPUT: 
2129 Fy 
2130 F R4 ADDRESS OF THE CHARACTERISTICS DATA 
4 3 RS FIRST DEVICE UNIBUS ADDRESS 
3 
2133 ;OUTPUT: 
2134 3 
2135 3 CARRY SET - RAM MATCHES PACKET 
4 F CLR - RAM DOES NOT MATCH PACKET 
F 
2138 sIMPLICIT OUTPUT: 
2139 8 
2140 3 THE TABLE RAMDATA IS FILLED WITH THE 
2141 3 DATA HELD IN RAM. 
eras 3 RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
F 
2144 ;SIDE EFFECTS: 
2145 3 
2146 F 
2147 3° 
2148 
2149 010730 CKRAM2:: 
2150 010730 SAVREG sSAVE THE GENERAL REGISTERS 
2151 010734 012701 002206 MOV #RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
2152 010740 012702 000167 MOV ORMCHBEG ,R2 sBYTE ADDRESS OF FIRST RAM DATA 
2153 010744 005003 CLR R3 ;CLEAR THE ERROR FLAG 
2154 010746 004737 017060 JSR PC ,CHKTSSR sWAIT FOR SSR 
2155 010752 004737 017060 10$: JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
2156 010756 110765 177777 MOVB R2, TSDBHC(RS) sSELECT NEXT RAM ADDRESS 
2157 010762 0°4737 017060 JSR PC ,,CHKTSSR sWAIT FOR SSR TO SET 
2158 010766 ‘16511 177776 MOVB TSBALCRS),(R1) ;READ THE RAM DATA 
2159 010772 122124 CMPB CR1)+,CR4)+ sCOMPARE TO EXPECTED 
2160 010774 001401 BEQ 20$ sBRANCH IF OK 
2161 010776 005203 INC R3 sSET ERROR FLAG 
2162 011000 005202 20%: INC R2 sADDRESS OF NEXT RAM LOCATION 
2163 011002 012737 000010 002246 MOV #8. ,RAMSIZ sASSUME NORMAL NOT SET 
2164 011010 020227 000176 CMP R2,@RMCHEND-2 ;REACHED END YET ? 
2165 011014 003756 BLE 10$ sBRANCH TILL ALL READ 
2166 011016 005703 27: TST R3 sWAS AN ERROR FOUND ? 
2167 011020 001402 BEQ 30$ sBRANCH IF NOT 
2168 011022 000241 CLC ;CLEAR CARRY TO SHOW ERROR 
2169 011024 000401 BR 50$ sAND EXIT 
2170 011026 000261 30$: SEC sSHOW GOOD COMPARE 
eas 011030 000207 50$: RTS PC s;RETURN 





eon 


 — 
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CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 







es 


pe -SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
3¢ 
2176 : 
2177 sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
2178 sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
2179 sERROR PRINT ROUTINES. 
2180 $ 
2181 s INPUT: 
2182 3 
2183 3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
2184 3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
2185 F R2 EXPD MESSAGE BUFFER ADDRESS 
2186 s;OUTPUT: 
2187 H 
2188 ; CARRY SET - MESSAGE BUFFERS MATCH 
Stes 3 CLR -MESSAGE BUFFERS DON’T MATCH 
$ 
cet sIMPLICIT OUTPUT: 
; 
2193 3 EXPMSG BUFFER IS SET TO EXPD DATA 
2194 F RECMSG BUFFER IS SET TO RECV DATA 
2195 F RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
sier ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
3 
2198 3- 
2199 011032 CKMSG: : 
2200 011032 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2201 011036 010037 002250 MOV RO ,RCVHIADD sSAVE RECV HIGH ADDRESS 
2202 011042 010137 002252 MOV R1,RCVLOAD ;SAVE RECV LOW ADDRESS 
2203 011046 005737 003102 TST KTENABLE sTESTING ABOVE 28K? 
2204 011052 001403 BEQ 10$ 3BR IF NO 
2205 011054 004737 020112 JSR PC ,SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
2206 011060 010001 MOV. RO,R1 sGET RETURNED ADDRESS BIASED TO PARG6 
2207 011062 005004 10$: CLR R4 sWORD IN BUFFER 
2208 011064 005003 CLR - R3 sCLEAR ERROR SEEN FLAG 
2209 011066 010205 MOV R2,RS sGET EXPD BUFFER ADDRESS 
2210 011070 011264 002266 15$: MOV (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
2211 011074 011164 002432 MOV (R1),RECMSG(CR4) ;SAVE RECV FOR ERROR REPORT 
2212 011100 022221 CMP CR2)+,CR1)+ sEXPD EQUAL RECV? 
2213 011102 001401 BEQ 25% 38R IF YES 
2214 011104 005203 INC R3 sSET ERROR SEEN FLAG 
2215 011106 062704 000002 25%: ADD 2 ,R4 sPOINT TO NEXT WORD ADDRESS 
2216 011112 020427 000014 cmp R4,014 sDONE FIRST 7 WORDS? 
2217 011116 003764 BLE 158 3BR IF NO 
2218 011120 032765 000200 000012 BIT @X2.EXTF,XST2(R5);IS EXTENDED FEATURES SET IN EXPD? 
2219 011126 001403 BEQ $ ” s;BR IF NO 
2220 011139 020427 000016 CMP R4,016 sD0NE EXTENDED FEATURES WORD? 
2221 011134 003755 BLE 15$ 38R IF NO 
2222 011136 005703 50%: TST R3 sANY ERRORS SEEN? 
2223 011140 001402 BEQ 553% :6R IF NO 
2224 011142 000241 cic sSET FAILURE 
2225 011144 000401 BR 603 3 
2226 011146 000261 558: SEC sSET SUCCESS 
aH 011150 000207 60$: RTS PC sRETURN 








i 


CZTKEBO 
CKMSG2 


2230 
2231 
2232 
e233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 








TK25 FRT END FUNC @1 MACRO M1200 07-JUN-84 0 
- COMPARE EXPD RECV MESSAGE BUFFERS 


.SBTTL 

3;* 

3 

sROUTINE TO COMP 

;BUFFER. THE EXP 

sERROR PRINT ROU 

$ 

INPUT; “ 

3 

3 RO 

Hy R1 

; R2 

; R3 

3 

sOUTPUT: 

3 

F CARRY 

F 

3 EXPMSG 

3 RECMSG 

$ RCVHIADD 

3 RCVLOADD 
011152 CKMS : 
011152 SAVREG 
011156 020327 000144 cmp 
011162 003412 BLE 
011164 012703 000144 Vv 
011170 PRINTF 
011170 012746 011304 MOV 
011174 012746 000001 MOV 
011200 010600 MOV 
011202 104417 TRAP 
011204 062706 000004 ADD 
011210 010037 002250 5$: MOV 
011214 010137 002252 MOV 
011220 005737 003102 TST 
011224 001403 BEQ 
011226 004737 020112 JSR 
011232 010001 MOV 
011234 005004 10$: CLR 
011236 005005 CLR 
011240 111264 002266 15$: MOVB 
011244 111164 002432 MOVB 
011250 122221 CMPB 
011252 001401 BEQ 
011254 005205 INC 
011256 062704 000001 25$: ADD 
011262 020403 CMP 
011264 002001 BGE 
011266 000764 BR 
011270 005705 50$: TST 
011272 001402 BEQ 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


ARE AN EXPECTED AND RECEIVED MESSAGE 
ot AND RECEIVED BUFFERS ARE STORED FOR 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADORESS 

NUMBER OF BYTES TO COMPARE 


SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON’T MATCH 


BUFFER IS SET TO EXPD DATA 

BUFFER IS SET TO RECV DATA 

SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 


SAVE R1-R5 UNTIL NEXT RETURN 
rt » @RECMSG - EXPMSG; 3980 IS COUNT ABOVE MAX ALLOWED? 
39 


a0 BR IF NO 
#RECMSG-EXPMSG, R3; 900 
#DEBUGMSG :9a0 
#DEBUGMSG, -( SP) 
#1, -(SP) 


RO, ;RCVHIADD sSAVE RECV HIGH ADDRESS 


R1,RCVLOAD sSAVE RECV LOW ADDRESS 

KTENABLE sTESTING ABOVE 28K? 

10$ BR IF NO 

PC,SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
RO,R1 sGET RETURNED ADDRESS BIASED TO PAR6 
R4 sWORD IN BUFFER 


RS sCLEAR ERROR SEEN FLAG 
(R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
(R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 


(R2)+,(R1)+ sEXPD EQUAL RECV? 
25$ ;BR IF YES 

RS sSET ERROR SEEN FLAG 
#1,R4 sPOINT TO NEXT BYTE 
R4,R3 sDONE ALL BYTES? 

50$ ;BR IF YES 

15$ D0 NEXT BYTE 

R5 sANY ERRORS SEEN? 
55$ sBR IF NO 


Sais al ct lamella SR 


SEQ 66 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


2282 011274 
2283 011276 
2284 011300 
2285 011302 
2286 

2287 011304 
2288 011374 
2289 011405 
2290 011440 
2291 011473 
2292 


000241 
000401 
000261 
000207 





MACRO M1200 07-JUN-84 


117 
045 
124 
056 
123 


CLC 

BR 
55$: SEC 
60$: RTS 
DEBUGMSG: 


FERCM: .ASCII 
ERCM: -ASCIZ 
SIMSG: .ASCIZ 
TINERR: .ASCIZ 

-EVEN 





09:48 PAGE 50-1 SEQ 67 


60$ 
PC 


-ASCIZ 
/ONSA 


/ TSSR ERROR CODE REC'D = / 


Feces 


TEST: a0. 


sSET FAILURE 


; 
sSET SUCCESS 
sRETURN 


ee INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ;aaD 
eae 


AFTER DOING SOFT INIT/ 
/ 





SS ESE 








—- 


CZTKEBO TX25 FRT END FUNC @1 MACRO M1200 07-JUN-84 09:48 PAGE 51 SEQ 68 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
2294 
2295 
2296 3+ 
2297 3 
te sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 
3 
2300 s INPUT: 
2301 $ 
2302 3 R1 CONTENTS OF TSSR AT ERROR 
2303 3 
2304 ;SIDE EFFECTS: 
2205 
eaet 3 EXECUTES DROP UNIT TO CEASE TESTING 
2308 s- 
2309 
2310 011506 BGNMSG SFIMSG 
011506 SFIMSG:: 
2311 011506 004737 005264 JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2312 011512 004737 017776 JSR PC ,CKDROP sDROP UNIT, IF ALLOWED 
2313 011516 ENDMSG 
011516 L10003: 
011516 104423 TRAP C$MSG 
2314 
2315 3+ 
2316 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
cere sTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
2319 INPUTS: 
2320 8 
2321 F R1 TSSR CONTENTS 
2322 3 R4 ADDRESS OF COMMAND PACKET 
2323 $ 
2324 3° 
2325 
2326 011520 BGNMSG PKTSSR 
011520 PKTSSR:: 
2327 011520 004737 005264 JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2328 011524 012700 000004 MOV #4,RO sNO. OF WORDS IN PACKET 
2329 011530 004737 006712 JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
2330 011534 013700 002716 MOV MESBFA,RO sADDRESS OF MESSAGE BUFFER 
2331 011540 005001 CLR R1 sASSUME NO HIGH MEMORY 
2332 011542 004737 013702 JSR PC ,PRMESS ;PRINT THE MESSAGE BUFFER ALSO 
2333 011546 ENDMSG 
011546 L10004: 
011546 104423 TRAP C$MSG 
2334 
2335 i* 
2336 ;PRINT ROUTINE TO PRINT THE CONTENTS OF 
a ;TSSR AND A GET STATUS COMMAND PACKET. 
2 F 
2339 ; INPUTS: 
2340 : 
2341 F R1 TSSR CONTENTS 
2342 ; R4 ADDRESS OF COMMAND PACKET 
2343 ; 
2344 ~ 








_—- 








CZTKEBO TK25 FRT END FUNC @1 
CKMSG2 


2345 
2346 


2347 
2348 
2349 
2350 


2351 
2352 


- COMPARE EXPD RECV MESSAGE BUFFERS 


011550 
011550 
011550 
011554 
011560 
011564 
011564 
011564 


011566 
011566 
011566 
011572 
011572 
011572 


011574 
011574 
011574 
011600 
011602 
011604 
011610 
011610 
011610 


004737 
012700 
004737 


104423 


004737 


104423 


004737 
010200 
010301 
004737 


104423 


005264 
000002 
006712 


005264 


005264 


013702 
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NMSG PKTGETS 


PKTGETS 
JSR PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV #2,RO 3NO. OF WORDS IN GET STATUS PACKET 
JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 

L10005 


C$MSG 


3¢ 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


;INPUTS: 
H 
: Ri TSSR CONTENTS 
3 R4 ADDRESS OF COMMAND PACKET 
BGNMSG SFFMSG 
SFFMSG:: 
JSR PC,PRITSSR :PRINT CONTENTS OF TSSR REGISTER 
ENOMSG 
L10006: 
TRAP C$MSG 


-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


3? 


;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
sBUFFER FOR ERROR REPORTS 


: INPUTS: 

; R1 CONTENTS OF TSSR 

F R2 LOW ORDER MESSAGE BUFFER 

3 R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
BGNMSG PKTMES 

PKTMES:: 
JSR PC,PRITSSR ;PRINT CONTENTS OF TSSR 
MOV R2,R0 ;LOW ORDER ADDRESS 
MOV R3,R1 sHIGH ORDER ADDRESS 
JSR PC,PRMESS ;PRINT THE MESSAGE BUFFER 
ENDMSG : 

L10007: 
TRAP C$MSG 





CZTKEBO TK25 FRT END FUNC @1 


ADOSSR 


2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 


2401 
2402 
2403 
2404 


2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 


2420 
2421 
2422 


2423 
2424 


- PRINT TEST ADDRESS AND TSSR 


011612 
011612 
011612 
011616 
011622 
011626 
011626 
011626 


011630 
011630 
011630 
011634 
011640 
011640 
011640 


004737 007646 
016501 000000 
004737 005264 


104423 


012700 000007 
004737 015246 


104423 
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-SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 


3¢ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A MEMORY TEST ADDRESS 


3 

; INPUTS: 

$ RS FIRST DEVICE UNIBUS ADDRESS 

3 ERRHI HIGH ORDER MEMORY TEST ADDRESS 

3 ERRLO LOW ORDER MEMORY TEST ADDRESS 
BGNMSG ADDSSR 

ADDSSR:: 
JSR PC ,PRITADD sPRINT MEMORY TEST ADDRESS 
MOV TSSRCRS),R1 ;GET CURRENT TSSR 
JSR PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
ENDMSG 

L10010: 
TRAP C$MSG 


-SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


3+ 
;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
;IMPLICIT INPUTS: 

; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGEXP 


MSGEXP: : 
MOV #7,RO sASSUME NO EXT FEATURES 

5$: JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 

L10011: 
TRAP C$MSG 














CZTKEBO TK25 FRT END FUNC @1 MACRO M1200 07-JUN-84 09:48 PAGE 53 
FIFEXP - PRINT FIFO EXP/RECV DATA : 


2426 -SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
2427 i+ 
2428 3 
abe sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
3 
2431 3 R1 - BYTE COUNT 
2432 8 
ey sIMPLICIT INPUTS: » 
2435 3 EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
aaat 3 RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
ad 
2438 011642 BGNMSG FIFEXP 
011642 FIFEXP:: 
2439 011642 PRINTX #FIFiMSG,R1 sPRINT BYTES TRANSFERRED 
011642 010146 MOV R1i,-CSP) 
011644 012746 011714 MOV #F IFiMSG,-(SP) 
011650 012746 000002 MOV #2,-C(SP) 
011654 010600 MOV SP ,RO 
011656 104415 TRAP C$PNTX 
011660 062706 000006 ADD #6,SP 
2440 011664 PRINTX #FIF2MSG ;PRINT HEADER MSG 
011664 012746 011763 MOV #F IF2MSG,-(CSP) 
011670 012746 000001 MOV #1,-(SP> 
011674 010600 MOV SP ,RO 
011676 104415 TRAP C$PNTX 
011700 062706 000004 ADD #4 ,SP 
2441 011704 010100 MOV R1,RO ;GET BYTE COUNT 
2442 011706 004737 015616 JSR PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 
2443 011712 ENDMSG 
011712 L10012: 
011712 104423 TRAP C$MSG 
2444 011714 045 116 045 FIFIMSG: -ASCIZ ‘sN#SA NUMBER OF BYTES TRANSFERRED = sD2' 
2445 011763 045 116 045 FIF2MSG: -ASCIZ ‘NSA FIFO DATA BYTES IN ERROR:' 
oes -EVEN 
244 








CZTKEBO TK25 FRT END FUNC @1 


2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 


2462 012022 
012022 
2463 012022 
2464 012026 
2465 012030 
2466 012032 
012032 
012034 
012040 
012042 
012044 
2467 012050 
2468 012052 
2469 012056 
2470 012062 
012062 
012062 


2472 012064 
2473 012102 
2474 012144 
2475 012235 
2476 012326 
2477 012417 
2478 012461 


2495 012536 
0125 


012701 
012100 
001410 


010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 


104423 
012102 


012064 


000001 


000004 


000012 
015246 


012144 


36 
2496 012536 012701 012600 
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MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


012235 
045 
045 
045 
045 
045 
045 











-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


;* 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
‘ 


3 

sIMPLICIT INPUTS: 

; 

; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSTAT 


MSGSTAT: : 
MOV #STATCOD,R1 sASCII ADDRESS TABLE 
10$: MOV (R1)+,RO sDONE ALL MSG LINES? 
BEQ 20$ ;BR IF YES 
PRINTX RO sPRINT STATUS BIT NAMES 


MOV SP ,RO 
TRAP C$PNTX 
ADD #4,SP 
BR 10$ 3D0 ANOTHER MSG LINE 
20$: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
L10013: 
TRAP C$MSG 
STATCOD: -WORD 1$,2$,3%,4$,5$,6$,0 
1$:.ASCIZ ‘sSNA Tape Bus Signals in Word #8:' 
2$:.ASCIZ ‘sNSA PARERR<15> IEOQT <12> IFMK <9> IRDY<6> IRWD<2>' 
3$:.ASCIZ ‘ssNSA IRESV2<14> IIDENT<11> IHER <8> IONL<5> IFBY<1>’ 
4$:.ASCIZ ‘sNSA IRESV1i<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O>! 
5$:.ASCIZ ‘NSA Tape Bus Signals in Word #9:' 
siete — DATMIS<7> ILW<6> OUTRDY<5> INRDY<4>' 
-EV 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


3+ 
, 

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
IMPLICIT INPUTS: 


; EXPMSG - EXPECTED MESSAGE BUFFER 
; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGLOOP 
MSGLOOP: : 
MOV #LOOPCOD,R1 sASCII ADDRESS TABLE 





(ne oe eee 


CZTKEBO TK25 FRT END FUNC #1 


MSGLOOP 


2497 
2498 
2499 


012542 
012544 
012546 
012546 
012550 
012554 
012556 
012560 
012564 
012566 
012572 
012576 
012576 
012576 


012600 
012620 
012673 
012772 
013071 
013170 
013267 
013366 


012100 
001410 


010046 
012746 
010600 
104415 
062706 
900766 
012700 
004737 


104423 
012620 


000001 


000004 


000012 
015246 


012673 
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- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


012772 








10$: _MOV (R1)+,RO ;DONE ALL MSG LINES? 

BEQ 20$ ;BK IF YES 

PRINTX RO s;PRINT STATUS BIT NAMES 

MOV RO,-CSP) 

MOV #1,-C(SP) 

MOV SP ,RO 

TRAP C$PNTX 

ADD #4,SP 

BR 10$ ;D0 ANOTHER MSG LINE 
20$: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 

JSR PC ,PRMSGEXP s;PRINT EXPD/RECV MESSAGE BUFFERS 

ENDMSG 
L10014: 

TRAP C$MSG 
LOOPCOD: -WORD 1$,2$,3$,4$,5$,6$,7$,0 
1$:.ASCIZ ‘sN#A Tape Bus Loopback Signals in Word #8:' 
2$:.ASCIZ ‘sNSA PARERR<15> IRESV2<14> IRESV1<13>' 
33:.ASCIZ ‘sSNA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER <10>' 
4$:.ASCIZ ‘sNSA IWFM =>IFMK<09> IEDIT=>IHER <08> IFAD =>ISPEED<07>° 
5$:.ASCIZ ‘sN#SA ITADO=>IRDY<06> ITAD1i=>IONL <05> IERASE=>ILDP <04>’ 
6$:.ASCIZ ‘NSA IREW =>IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <O1>’ 
7$:.ASCIZ ‘sNSA IGO =>IFPT<00>' 


-EVEN 














CZTKEBO TK25 FRT END FUNC #1 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


013414 
013414 
013414 
013420 
013424 
013424 
013424 


013426 
013426 
013426 
013432 
013436 
013442 
013446 
013446 
013446 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 


000012 
015246 





MACRO M1200 07- 


3* 


i 
;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
g 


; 
sIMPLICIT INPUTS: 


3;* 


;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
;IMPLICIT INPUTS: 


MEMADD: : 


L10016: 


JUN-84 09:48 PAGE 55 SEQ 74 





-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSUB 


MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 

TRAP C$MSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 
ERRLO ~- MEMORY ERROR LOW ORDER ADDRESS 


EXP - EXPECTED DATA 

RECV - RECEIVED DATA 

BGNMSG MEMADD 

JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPO ,R1 :GET EXPD DATA 

MOV RECV,R2 sGET RECEIVED DATA 

JSR PC ,PRIXOR sPRINT EXPD/RECV 

ENDMSG 

TRAP C$MSG 





CZTKEBO TK25 FRT END FUNC #1 
PRAMPKT - PRINT RAM AND PACKET DATA 


2579 013450 
2580 013450 
2581 013454 
2582 013460 
2583 013462 
2584 013464 
2585 013466 
2586 013472 
2587 013476 
2588 013506 
2589 013512 
2590 013520 
2591 013526 

013526 

013530 

013534 

013540 

013542 

013546 

013552 

013554 

013556 
2592 013562 
2593 013564 
2594 013570 
2595 013572 
2596 013576 
2597 013600 
2598 013602 
2599 013606 
2600 013610 
2601 013614 


2603 013616 


012701 
005002 
122124 
001000 
116105 
116403 


042703 
116137 
116437 


010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003731 
000403 
020227 
002725 
005037 
000207 


045 


002206 


177777 
177777 


177400 


177777 
177777 


002176 
002200 
013616 
000005 
000014 
002246 
002246 


000010 
002246 


116 








MACRO M1200 07-JUN-84 09:48 PAGE 56 


002200 
002176 


045 RAMASC: .ASCIZ ‘SNA BYTE: SD28A RAM: SO38A Packet: s038A XOR: 803 
-EVEN hs. ae 


-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


3* 


; 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
sWHEN THE RAM DATA DOES NOT MATCH. 


SINPUTS: 

; R4 POINTER TO COMMAND PACKET 

SIMPLICIT INPUTS: 

RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 


IF RAMSIZ=0 THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


PRAMPKT : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV #RAMDATA,R1 sDATA FROM THE RAM 
CLR Re sINIT BYTE NUMBER 
5$: CMPB (R1)+,(R4)+ sCOMPARE EXPECTED, RECEIVED 
BNE 7$ BR IF NO MATCH 
7$: MOVB -1(R1),R5 sGET RECV RAM DATA 
MOVB -1(R4),R3 sGET EXPD PACKET DATA 
XOR RS ,R3 sXOR EXPD/RECV 
BIC #177400,R3 ;LOW BYTE ONLY 
MOVB -1(R1),RECV sGET RECEIVED RAM DATA 
MOVB -1(R4),EXPD ;GET EXPECTED RAM DATA 


PRINTB #RAMASC,R2,RECV,EXPD,R3 
MOV R3,-(SP) 

MOV EXPD, -(SP) 

MOV RECV,-(SP) 


10$: INC R2 sUPDATE BYTE COUNT 
TST RAMSIZ sDEFAULT TO 8.? 
BEQ 15$ 3BR IF YES 
CMP R2 ,RAMSIZ s;DONE ALL BYTES? 
BLE 5$ :BR IF NO 
BR 25$ ; 
15$: CMP R2,%8. sDONE DEFAULT NUMBER OF BYTES? 
20%: BLT 5$ BR IF NO 
25$: CLR RAMSIZ sSET DEFAULT RAMSIZ 


RTS PC sRETURN 


SEQ 75 








CZTKEBO TK25 FRT END FUNC @1 
- PRINT CONTENTS OF MESSAGE BUFFER 


PRMESS 


2634 
2635 
2636 


2637 


2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 


‘gnteany 


013702 
013702 
013706 
013712 
013714 
013720 
013722 
013724 
013726 
013730 
013732 
013732 
013734 
013736 
013742 
013746 
013750 
013752 
013756 
013762 
013764 
013764 
013770 
013774 
013776 
014000 
014004 
014004 
014010 
014014 
014016 
014020 
014024 
014026 
014030 
014032 
014034 
014040 
014042 
014042 


010537 
010005 
005737 
001001 
005001 
010103 
006100 
006101 


010546 
010146 
012746 
012746 
010600 
104415 
062706 
022715 
001010 


012746 
012746 
010600 
104415 
062706 


012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 


010642 
003102 


014540 
000003 


000010 
177777 


014460 
000001 


000004 
014605 
000001 


000004 


020112 
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-SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


;* 


; 
sTHIS ROUTINE PRINTS THE CONTENTS OF 
sTHE 7 WORD MESSAGE BUFFER RETURNED BY THE 


:TK-25. 
3 
s INPUT: 


PRMESS: 
SAVREG 
MOV RS ,RAMRSH 
MOV RO,RS 
TST KTENABLE 
BNE 10$ 
CLR Ri 
10$: MOV R1,R3 
ROL RO 
ROL Ri 
PRINTX #PROASC,R1,R5 
MOV RS,-(SP) 


MOV Ri, -C(SP) 

MOV @PROASC, -( SP) 

MOV #3,-(SP) 

MOV SP ,RO 

TRAP C$PNTX 

ADD #10,SP 

CMP #177777, (RS) 
$ 


MOV SP, 
TRAP C$PNTX 
ADD #4,SP 


15$: PRINTX #PR1ASC 
MO 


MOV SP ,RO 
TRAP C$PNTX 
ADD #4 ,SP 

CLR R4 

MOV RS,R1 

MOV R3,RO 
BEQ 20$ 

JSR PC ,.SETMAP 
MOV RO,RS 


208: 
PRINTX #MESHEA,(R5)+ 


RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Ri HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: Ri IS IGNORED IF KTENABLE FLAG IS CLEAR 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


sSAVE THE REGISTERS 

sSAVE DEVICE REGISTER POINTER 
sSAVE LOW ORDER ADDRESS 

sADDRESS ABOVE 28K? 

:BR IF YES 

sSET HIGH ORDER ADORESS TO 0 
sSAVE HIGH ORDER ADDRESS 

sSHIFT BIT1S TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sMESSAGE BUFFER FULL OF ONES 
;BR IF BUFFER IS PROBABLY OKAY 
s"MESSAGE BUFFER PROBABLY NOT VALID” 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE NEXT WORD 

sCOPY LOW ORDER ADDRESS 

sCOPY HIGH ORDER ADDRESS 

sBR IF NOT ABOVE 28K 

sSETUP PAR ADDRESS IN RO 

sGET PAR FORMAT ADDRESS ABOVE 28K 


sPRINT “MESSAGE BUFFER HEADER =" 
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PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 





014042 012546 MOV CRS)+,-CSP) 
014044 012746 014643 MOV @MESHEA, -C SP) 
014050 012746 000002 MOV #2,-(SP) 
014054 010600 MOV SP ,RO 
014056 104415 TRAP CSPNTX 
014060 062706 000006 ADD #6 ,SP 
2646 014064 PRINTX @DATAFL,CRS)+  ;PRINT “DATA FIELD LENGTH =" 
014064 012546 MOV CRS)+,-CSP) 
014066 012746 014710 MOV @DATAFL, -(SP) 
014072 012746 000002 MOV #2,-(SP) 
014076 010600 MOV SP ,RO 
014100 104415 TRAP C$PNTX 
014102 062706 000006 ADD #6, SP 
2647 014106 PRINTX @RBPCRA,(RS)+  ;PRINT “RESIDUAL BYTE COUNTER 
014106 012546 MOV CRS)+,-CSP) 
014110 012746 014755 MOV @RBPCRA, -( SP) 
014114 012746 000002 MOV #2,-(SP) 
014120 010600 MOV SP ,RO 
014122 104415 TRAP C$PNTX 
014124 062706 000006 ADD #6 ,SP 
2648 014130 PRINTX #@XSOCON,(RS)+  ;PRINT “XSTATO CONTENTS 
014130 012546 MOV (R5)+, -CSP) 
014132 012746 015022 MOV @XSOCON, -( SP) 
014136 012746 000002 MOV #2,-CSP> 
014142 010600 MOV SP ,RO 
014144 104415 TRAP CSPNTX 
014146 062706 000006 ADD #6 ,SP 
2649 014152 PRINTX @XS1CON,(RS)+  ;PRINT “XSTAT1 CONTENTS 
014152 012546 MOV CRS)+, -CSP) 
014154 012746 015067 MOV @XS1CON, -( SP) 
014160 012746 000002 MOV #2,-(SP) 
014164 010600 MOV SP ,RO 
014166 104415 TRAP C$PNTX 
014170 062706 000006 ADD #6 ,SP 
2650 014174 PRINTX @XS2CON,(RS)+  ;PRINT “XSTAT2 CONTENTS 
014174 012546 MOV CRS)+,-CSP) 
014176 012746 015134 MOV @XS2CON, -( SP) 
014202 012746 000002 MOV #2,-(SP) 
014206 010600 MOV SP ,RO 
014210 104415 TRAP C$PNTX 
014212 062706 000006 ADD #6 ,SP 
2651 014216 PRINTX @XS3CON,(RS)+ ;PRINT “XSTAT3 CONTENTS 
014216 012546 MOV CRS)+,-CSP) 
014220 012746 015201 MOV @XS3CON, -( SP) 
014224 012746 000002 MOV @2,-(SP) 
014230 010600 MOV SP ,RO 
014232 104415 TRAP C$PNTX 
014234 062706 000906 ADD 06 ,SP 
2652 014240 022737 000001 002134 CMP #1, TRANSTST sCHECK SOFTWARE P-TABLE 
2653 014246 001402 BEQ 40$ :D0 DUMP 
2654 014250 000137 014360 JMP 50$ sDON‘'T DO THE DUMP 
2655 014254 40$: PRINTX @RAMFHR 
014254 012746 014362 MOV @RAMFHR, -( SP) 
014260 012746 000001 MOV #1,-CSP) 
014264 010600 MOV SP ,RO 
014266 104415 TRAP C$PNTX 
014270 062706 000004 ADD 04 ,SP 








CZTKEBO TK2S5 FRT END FUNC @1 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


2656 014274 
2657 014302 
2658 014310 
2659 014314 
2660 014322 
2661 014326 
2662 014334 
2663 014340 
2664 014346 
2665 014354 
2666 014360 
2667 014362 
2668 014460 
2669 014540 
2670 014605 


2672 014643 
2673 014710 
2674 014755 
2675 015022 
2676 015067 
2677 015134 
2678 015201 


012737 
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002246 
010640 


010640 
010640 


002246 
010640 


50$: 


RAMFHR: . 
MESBFN: . 
PROASC: . 
PRIASC: . 


MESHEA: . 
DATAFL: . 
RBPCRA: . 
XSOCON: . 
XSiCON: . 
XS2CON: . 
XS3CON: . 


#8. ,RAMSIZ 
#20, RAMHLD 


PC ,RAMER 
#16. ,RAMSIZ 
#100 ,RAMHLD 
PC ,RAMER 

PC 


‘SNSA seee¢e¢e4% SPECIAL CONTROLLER RAM MEMORY DUMP sasacecece’ 
‘sNSA MESSAGE BUFFER CONTENTS PROBABLY NOT VALID’ 
‘SNSA Message Buffer Address = #01805’ 
‘SNSA Message Buffer Contents: ' 











sRAM FIELD IS 8 BYTES LONG 
sFIELD STARTS AT 20 OCTAL (10 HEX) 
sREAD AND PRINT THEM 
sFIELD STARTS AT 40 OCTAL (20 HEX) 
sREAD AND PRINT THEM 
sFIELD STARTS AT 60 OCTAL (30 HEX) 
sREAD AND PRINT THEM 
sRAM FIELD IS SIXTEEN BYTES LONG 
sFIELD STARTS AT 100 OCTAL (40 HEX) 
sREAD AND PRINT THEM 
sRETURN 


‘sSNSA aoe Buffer Header = #606’ 
‘SNSA Data Field Length = £06’ 
‘SNSA Residual Byte Counter = #606’ 
‘sNSA XSTATO Contents = £606' 
‘sSNSA XSTAT1 Contents = 606’ 
‘sNSA XSTAT2 Contents = #606' 
‘sNSA XSTAT3 Contents = #606’ 








eens 





CZTKEBO TK25 FRT END FUNC @1 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


2704 


2705 
2706 
2707 
2708 
2709 
2710 


2711 © 


010005 
013700 
010004 
013701 
006100 
006101 


010446 
010146 
012746 
012746 
010600 
104415 
062706 


012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 


010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000752 
000207 


002252 
002250 


015426 
000003 
000010 
015473 
000001 
000004 


002266 
002432 


015531 
000005 


000014 
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3+(B 





-SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


;ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
- NUMBER OF WORDS IN BUFFER 

SIMPLICIT INPUTS: 
- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


20$: 


50$: 


PRMSGEXP: : 
SAVR 


RO 


EXPMSG 
RECMSG 


RO.RS 
RCVLOADD ,RO 
RO,R4 
RCVHIADO,R1 
RO 


R1 
#PRMSGO,R1,R4 
R4,-(SP> 
R1,-(SP) 
@PRMSGO, -( SP) 
#3,-CSP) 

SP ,RO 

C$PNTX 

#10,SP 
#PRMSG1 
#PRMSG1, -( SP) 
#1,-CSP) 


#€XPMSG,R1 
®RECMSG,R2 
(R1),RO 


RO, 
@PRMSG2,R4,(R1)+ 


R3,-(SP) 
(R2)+,-CSP) 
(R1)+,-CSP) 
R4,-(SP) 
#PRMSG2, -( SP) 
#5,-(SP) 


sSAVE R1-RS UNTIL NEXT RETURN 
sSAVE NUMBER OF WORDS 

sGET RECV LOW ADDRESS 

sCOPY LOW ADDRESS 

sGET RECV HIGH ADDRESS 

sSHIFT BIT15 TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE CURRENT WORD 
sGET EXPD BUFFER ADDRESS 
sGET RECV BUFFER ADDRESS 
sGET EXPD 

GET RECV 

3XOR EXPD/RECV 

»C(R2)+,R3 


sNUMBER OF THE NEXT 
sDONE ALL YET? 

;BR IF YES 

300 ANOTHER 

sRETURN 


SEQ 79 





CZTKEBO TK25 FRT END FUNC @1 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


& 


2717 

2718 015426 045 
2719 015473 045 
2720 015531 045 


‘ 


2722 


116 
116 
116 








045 PRMSGO: .ASCIZ 
045 PRMSG1: .ASCIZ 
045 PRMSG2: .ASCIZ 

-EVEN 
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‘SNSA Message Buffer Address = #01805’ 
‘SNSA Message Buffer Contents: ' 


‘SNSA 


WORD #sD28A EXPD: S068A RECV: 068A XOR: 806° 








CZTKEBO TK25 FRT END FUNC @1 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 


2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 


015616 
015616 
015622 
015624 
015630 
015632 
015636 
015642 
015644 
015650 
015654 
015656 
015662 
015666 
915676 
015700 
015702 
015706 
015714 
015716 
015716 
015720 
015724 
015730 
015732 
015736 
015742 
015744 
015746 
015752 
015762 
015764 
015764 
015774 
015774 
015776 
016000 
016002 
016004 
016004 
016010 
016014 
016020 
016022 


110337 


122122 
001431 
005237 
023727 
101023 


010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 


000404 


005204 
020405 
002001 
000717 


013746 
012746 
012746 
010600 
104415 


002264 


002266 
002432 


177400 
016164 


177400 
016166 


002264 
002264 


016166 
016164 


016032 
000005 


000014 


002264 
016117 
000002 
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000010 


3* 








; 
sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 


3 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
3 
3 RO - NUMBER OF BYTES IN BUFFER 
. 
sIMPLICIT INPUTS: 
Hy 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
PRBYTEXP:: 
SAVREG sSAVE R1-R5S UNTIL NEXT RETURN 
MOV RO,RS ;SAVE NUMBER OF BYTES 
CLR PRMNO sINIT ERROR COUNT 
CLR R4 sNUMBER OF THE CURRENT BYTE 
MOV #EXPMSG,R1 ;GET EXPD BUFFER ADDRESS 
MOV #RECMSG,R2 ;GET RECV BUFFER ADDRESS 
20$: MOVB C(R1),RO :GET EXPD BYTE 
BIC #tC<377>,RO ;CLEAR UPPER BYTE 
MOVB RO,PRBEXP ;SAVE FOR ERROR REPORT 
MOVB (R2),R3 ;GET RECV BYTE 
BIC #tC<377>,R3 ;CLEAR UPPER BYTE 
MOVB R3,PRBREC sFOR ERROR REPORT 
xOR RO,R3 :XOR EXPD/RECV 
CMPB (R1)+,CR2)+ sEXPD = RECV? 
BEQ 30$ 3;B8R IF YES 
INC PRMNO sUPDATE ERROR COUNT 
CMP PRMNO, #8. sPRINTED 8? 
BHI 30$ ;BR IF YES 
27s: PRINTX #PRBMSG,R4,PRBEXP,PRBREC,R3 
MOV R3,-(SP) 
MOV PRBREC, -(SP) 
MOV PRBEXP , -( SP) 
MOV R4,-(SP) 
MOV #PRBMSG, -( SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD #14,SP 
FORCEXIT 50$ ;98D 
BR 35$ ;9aD 
30$: 
FORCERROR 27$,NOTSSR ;9aD 
35$: 98D 
INC R4 sNUMBER OF THE NEXT 
CMP R4,R5 sDONE ALL YET? 
BGE 50$ ;BR IF YES 
BR 20$ ;D0 ANOTHER 
50$: PRINTX #PRBTOT,PRMNO sPRINT TOTAL ERROR COUNT 
MOV PRMNO, -( SP) 
MOV #PRBTOT, -( SP) 
MOV #2,-C(SP) 
MOV SP ,RO 
TRAP CS$PNTX 


a 
SS A ee 








CZTKEBO TK25 FRT END FUNC @1 


PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESS*GE BUFFER 


016024 
2767 016030 
2768 
2769 016032 
2770 016117 
2771 
2772 016164 
2773 016166 
2774 





062706 000006 


000207 


045 
045 


000000 
000000 


116 
116 
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AOD #6, SP 
RTS PC sRETURN 


045 PRBMSG: .ASCIZ ‘SNSA BYTE @8D26A EXPD: SO38A RECV: #038A XOR: 603’ 
045 PRBTOT: .ASCIZ ‘sNSA NUMBER OF BYTES IN ERROR = D2’ 


-EVEN 
PRBEXP: .WORD 0 sEXPD 
PRBREC: .WORD 0 sRECV 





—_— 


CZTKEBO TK25 FRT END FUNC #1 





EXPREC 


2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 


2791 
2792 





- PRINT EXPD/RECV WORD DATA 


016170 

026170 

016170 004737 007314 
016174 

016174 

016174 104423 








RS RR 
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-SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 


3¢ 

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
; 

sINPUTS: 


; Ri RECEIVED DATA 
R2 EXPECTED DATA 


BGNMSG EXPREC 


EXPREC:: 
JSR PC,PRIXOR sPRINT THE DATA 
ENDMSG 

L10017: 
TRAP C$MSG 


SEQ 83 











—— 
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EXPBREC - PRINT EXPD/RECV BYTE DATA 


2794 -SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
2795 :* 


; 
2797 sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
: 





; 
2800 s INPUTS: 


R1 RECEIVED DATA BYTE 
R2 EXPECTED DATA BYTE 


2807 016176 BGNMSG EXPBREC 

016176 EXPBREC: : 
2808 016176 004737 007164 JSR PC ,PRIBXOR sPRINT THE DATA 
2809 016202 ENDMSG 

016202 L10020: 

016202 104423 TRAP C$MSG 


2814 -SBTTL RAMERR - PRINT RAM AND PACKET DATA 
2815 i+ 


a 
2817 sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA _ 


2819 INPUTS: 
2820 : 
2821 ; R4 POINTER TO COMMAND PACKET 


2823 ;IMPLICIT INPUTS: 


: RAMDATA DATA AS READ FROM THE RAM 
: RAMSIZ NUMBER OF BYTES IN PACKET 
2827 ; IF RAMSIZ=0 THEN DEFAULT TO 8. 


IMPLICIT OUTPUTS: 
2830 3 
2831 : RAMSIZ SET TO 0 


2834 016204 BGNMSG RAMERR 

016204 RAMERR: : 
2835 016204 004737 013450 JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
2836 016210 ENDMSG 

016210 L10021: 

016210 104423 TRAP C$MSG 


2839 .SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
2 3¢ 

2842 ;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 

2844 ; INPUTS: 











CZTKEBO TK25 FRT END FUNC @1 
RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


2861 016212 
016212 
2862 016212 
2863 016216 
2864 016222 
016222 
016222 


2879 016224 
016224 
2880 016224 
2881 016230 
2882 016234 
2883 016240 
2884 016244 
016244 
016244 


004737 
004737 


104423 


042701 
042702 
004737 
004737 


104423 


007646 
013450 


177400 
177400 
007440 
007314 





R4 
IMPLICIT INPUT 


RAMDATA 
RAMSIZ 


ERRHI 
ERRLO 


sIMPLICIT OUTPU 
RAMSIZ 


NMSG 


-SBTTL 


;PRINT ROUTINE 
;INPUTS: 


r) 
mw 


L10023: 


-SBTTL 


3* 


;PRINT ROUTINE 
;AND TIMER A,B 
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POINTER TO COMMAND PACKET 

S: 
DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 

TS: 


SET TO 0 


RAMTADD 


PC ,PRITADD 
PC ,PRAMPKT 


sPRINT TEST ADDRESS 
sPRINT RAM/PACKET DATA 


C$MSG 
RAMEXP - PRINT RAM EXPD/RECV DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 


RAME XP 

#tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
#tC<377>,R2 sSAVE EXPD RAM DATA BYTE 
PC ,,PRIRAM sPRINT THE RAM ADDRESS 
PC ,PRIXOR sPRINT THE DATA 

C$MSG 

TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 
HEADER MESSAGE 


RECEIVED DATA 
EXPECTED DATA 








CZTKEBO TK25 FRT END FUNC @1 
- PRINT TIMER A,B AND EXP/REC 


TIMEXP 
2896 
2897 
2898 


2899 


016246 
016246 
016246 
016246 
016252 
016256 
016260 
016262 
016266 
016272 
016272 
016272 


016274 


012746 
012746 
010600 
104415 
062706 
004737 


104423 


045 


016274 
000001 


000004 
007314 


116 
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TIMEXP: : 


L10024: 


045 TIMSGO: 
-EVEN 





JUN- 84 


-ASCIZ 


09:48 PAGE 61-2 


TIME XP 


#TIMSGO ;PRINT HEADER 
#TIMSGO, -( SP) 
#1, -(SP) 


#4,SP 
PC ,PRIXOR sPRINT THE DATA 


C$MSG 


‘SNSA TIMER A STATUS IS IN BIT 38NSA TIMER B STATUS IS IN BIT 2° 












CZTKEBO TK25 FRT END FUNC @1 
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BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


cena -SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
2909 i* 
2910 ; 
ey! sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
; 
2913 sINPUTS: 
2914 : 
2915 ; R1 CONTENTS OF TSSR 
2916 ; R2 DATA WRITTEN (8 BITS) 
2917 F 
2918 ies 
2919 
2920 016374 BGNMSG BADSSR 
016374 BADSSR: : 
2921 016374 010246 MOV R2,-(SP) sSAVE DATA TRANSFERRED 
2922 016376 042702 177400 BIC #177400,R2 sGET JUST ONE BYTE 
2923 016402 PRINTB #XFERASC,R2 
016402 010246 MOV R2,-(SP) 
016404 012746 016434 MOV #XFERASC,-(SP) 
016410 012746 000002 MOV #2,-(SP) 
016414 010600 MOV SP ,RO 
016416 104414 TRAP C$PNTB 
016420 062706 000006 ADD #6 ,SP 
2924 016424 012602 MOV CSP)+,R2 sRESTORE R2 
2925 016426 004737 005264 JSR PC,PRITSSR s;DECODE TSSR CONTENTS 
2926 016432 ENDMSG 
016432 L10025: 
016432 104423 TRAP C$MSG 
ad 016434 045 116 045 XFERASC: -ASCIZ ‘sSNA Data Transferred = 03° 
a. 
\ 
Re 


SEQ 87 


CZTKEBO TK2S FRT END FUNC @1 





GLOBAL SUBROUTINES SECTION 


2963 016470 
2964 016470 
2965 016474 
2966 016502 
2967 016506 
2968 016512 
2969 016514 
2970 016520 
2971 016524 
2972 016526 
2973 016530 
2974 016532 
2975 016534 
2976 016536 


012765 
004737 
016500 
010004 
042704 
052704 
020400 
001402 
000241 
000401 
000261 
000207 





000000 000000 
016744 
000000 


176277 
002200 


a 
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-SBTTL GLOBAL SUBROUTINES SECTION 


$e 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 


ge= 
-SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
3* 
; 
sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
sBY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 


sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


SINPUTS: 

; RS ADDRESS OF FIRST REGISTER 
;OUTPUTS: 

; RO CONTENTS OF TSSR, IF ERROR 


CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 


CALLING SEQUENCE: 


MOV #ADDRESS ,RS 

JSR PC,SOFINIT 

BCS CONTINUE 

ERRDF sREPORT FATAL ERROR 


SOFINIT: : 


SAVREG ; SAVE THE REGISTERS 
MOV #0, TSSRCRS) ; DO THE INIT. 
JSR PC ,WAITF ; WAIT FOR SSR 


MOV an sGET THE TSSR REGISTER 


MOV oR sSTART SETUP OF EXPECTED TSSR 
BIC #tC<HIADDR!IOFL>,R4 ;CLEAR OUT UNUSED BITS 
BIS #SSR!NBA,R4 sR4 HAS EXPECTED CONTENTS 
CMP R4,RO sONLY EXPECTED BITS SET ? 
BEQ 5$ sBRANCH IF OKAY 
CLC sCLEAR THE CARRY FOR ERROR 
BR 10$ :GO TO EXIT 
S$: SEC sSET THE CARRY BIT 
10$: RTS PC sRETURN TO CALLER 


CZTKEBO TK25 FRT END FUNC @1 
- CHECK TSSR FOR AMBIGUITY 


CHKAMB 


2978 
2979 
2980 
2981 
2982 


016540 
016540 
016544 
016546 
016552 
016554 
016560 





010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 
000401 
000261 
000207 


100000 
174077 


000200 
000040 
177761 
000016 
000040 
000006 
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-SBTTL 


3* 


: 
sTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 


sFOR AMBIGUITY 
; INPUT: 

: 

; RO 

; 

;OUTPUT: 

; 

; RO 
; 

3 CARRY 
; 

: 

- 


CHKAMB : 
5$: BIT 


10$: BIT 


40$: CLC 


45$: SEC 
50$; RTS 


CHKAMB - CHECK TSSR FOR AMBIGUITY 


CONTENTS OF TSSR 


CONTENTS OF TSSR 





SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


RO,R4 
#SC,RO 
S$ 


sSAVE THE GENERAL REGISTERS 
sCONTENTS OF TSSR 

IS BIT 15 SET ? 

sBRANCH IF YES 


@+C<NBA!OFL!SSR!HIADDR>,RO 


40$ 


40$ 
#tCTERCLS,R4 
R4, #16 

40$ 

45$ 

#BITS,RO 

45$ 
#BIT2!BIT1,RO 
45$ 


50$ 
PC 


sERROR IF NOT 


sCLEAR ALL BUT TERMINATION CODE 
sALL THREE BITS MUST BE SET 
sERROR IF NOT SET 

30K IF ALL ARE SET 

sIS FATAL ERROR BIT SET ? 
sERROR IF BIT IS SET WITH SSR 
sIS THIS A FUNCTION REJECT 

:BR, IF TSSR IS OK 

sAMBIGUOUS CONTENTS 


sSHOW SUCCESS - NO AMBIGUITY 
sRETURN TO CALLER 


sANY OTHER BITS SET ? 
sMUST BE AN ERROR 

sRETURN WITH SUCCESS 

:IS READY BIT SET ? 

sBRANCH IF READY BIT IS SET. 

:IS FATAL ERROR BIT SET ? 








et 


CZTKEBO TK25 FRT END FUNC @1 
ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


mene 


016700 
016702 
016710 





000200 
000001 


000 
000 


000000 
000000 


010046 
013700 
012720 
012720 
012600 
011646 
012766 
000002 


011646 
012766 
000002 





002156 
016712 
000340 


000000 000002 


000340 000002 
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-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


DEFAULT DISPLAY INTERRUPT HANDLERS. 
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
: 


IOKCKIN=B1T7 ; DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
IOKSTP=BITO s EXPECT “STOP” INTERRUPT. 

LINTERRUPT MASK ys i — INTERRUPTS 

sINTERRUPT FLAG -- SAYS WE GOT ONE CIF POSITIVE) 

INTFLAG: -BYTE 0 

sSAVED INTERRUPT VECTOR: 

INTVEC: .WORD 0 


sSAVE CPU PC 
INTCPC: .WORD 0 


sSUBROUTINE TO ENABLE INTERRUPTS: 


ENAINT: MOV RO, -(SP> sSAVE RO 
MOV IVEC,RO sGET POINTER TO VECTORS 
MOV @INTR,CRO)+ sSET UP INTERRUPT VECTOR 
MOV @PRIO7,CRO)+ 
MOV (SP)+,RO sRESTORE RO 
MOV (SP),-(SP) 
ot #0,2(SP) sSET CPU TO LEVEL 0 


;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV (SP),-CSP) 
ae #PRIO7,2(SP) 


Pree 





CZTKEBO TK25 FRT END FUNC @1 
- INTERRUPT HANDLERS 


INTR 


ear 


016712 
016712 
016712 
016720 
016724 
016732 
016734 


016742 
016742 
016742 
016742 


012737 
105037 
132737 
001003 
152737 


000002 


000001 
016641 
000001 


000001 
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.SBTTL INTR  - INTERRUPT HANDLERS 
oe BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
002172 "MoV @1, INTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 
CLRB  =—sINTFLAG ;CLEAR FLAG TO SAY WE GOT INTERRUPT 
016640 BITB  @IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
BNE i$ BR IF YES 
016641 BISB IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
sSAVE REGISTERS, MSG BUFFER, ETC. 
; ENDSRV 
L10026: 
RTI 





CZTKEBO TX25 FRT END FUNC @1 
- WAIT FOR SUBSYSTEM READY 


WAITF 


3099 
3100 
3101 
3102 
3103 
3104 
3105 


016744 
016744 
016746 
016752 
016752 
016756 
016760 
016764 
016766 
016772 
016774 
017000 
017002 
017006 


017010 
017012 
017012 
017016 
017020 
017024 
017026 
017032 
017034 
017040 
017042 
017044 
017046 
017050 
017052 
917054 
017056 


104422 
012746 


012727 


010000 
000001 
002116 
177772 
177756 
000000 


000001 
002116 
177772 
177756 





MACRO M1200 07-JUN-84 09:48 PAGE 67 


a 
; SUBROUTINE TO 


’ 
s INPUTS: 
: 





- SBTTL 


RS 


; 
sOUTPUTS: 


2s: 


3$: 
4$: 


RO 
CARRY 


:: BREAK 


TRAP 


WAITF 





SEQ 92 


- WAIT FOR SUBSYSTEM READY 


WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 


CSBRK 


#10000, -(SP) 


1 

#1,(PC)+ 

0 

aon 

-6(PC) 

.-4 

-22(PC) 
.-20 

TSSRCRS) RO 

RO 

3$ 

1 

—— 

Picante 
— 
22°C) 
.-20 

(SP) 

2$ 

4s 


(SP)-+ 
PC 


; DO A SUPVSR BREAK FIRST. 


sBIG MSEC TIMER 
sDELAY 100US 


sREAD THE TSSR REGISTER 
sTEST FOR READY BIT SET 


3 EXIT ON STOP FLAG. 
; WAIT 100 USEC 


sREDUCE DELAY COUNT 
sRETRY UNTIL TIMER EXPIRES 
; C = 0, CONTROLLER STILL RUNNING... 
-OR Bg * UP AFTER 300 MSEC. 
; ‘C= CONTROLLER IS STOPPED. 
‘RESTORE STACK WITHOUT CHANGING CARRY BIT 





=} ne ERS TE 
ren 0 en rca een ed 6 ES Oe tn RAR A SERS SD SES ER ET 








CZTKEBO TX25 FRT END FUNC @1 
CHKTSSR - CHECK TSSR FOR READY 
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3107 -SBTTL CHKTSSR - CHECK TSSR FOR READY 

3108 

3109 3° 

3110 3 

3ili ;THIS ROUTINE WAITS FOR READY IN THE TSSR 

tH sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 

3114 s INPUT: 

3115 3 

tre: ; R5 ADDRESS OF CSR REGISTERS 

3118 sOUTPUT: 

3119 3 

3120 Fy RO CONTENTS OF TSSR 

3121 3 CARRY SET - OKAY 

3122 ; CLR - NOT READY AMBIGUOUS, OR SC SET 

3123 : 

3:24 8- 

2125 

3126 017060 CHKTSSR: 

3127 017060 004737 016744 JSR PC ,WAITF sWAIT FOR READY 

3128 017064 103014 Bcc 20$ ;BRANCH IF TIME OUT 

3129 017066 004737 016540 JSR PC ,CHKAMB ;TSSR AMBIGOUS? 

2130 017072 103006 BCC 10$ ;BR IF YES 

3131 017074 032700 100000 BIT #SC,RO ;SPECIAL CONDITION SET? 

3132 017100 001405 BEQ 15$ ;BR IF NO 

3133 017102 032700 074000 BIT #<SCE!BIE!RMR!NXM> ,RO sANY ERROR BITS SET? 

3134 017106 001402 BEQ 15$ ;BR IF NO 

3135 017110 000241 10$: cLc ;SET FAILURE 

3136 017112 000401 BR 20$ ; 

3137 017114 000261 15$: SEC ;SET SUCCESS 

3138 017116 000207 20$: RTS PC sRETURN TO CALLER 
kK eS 





SEQ 93 











_- 


CZTKEBO TK25 FRT END FUNC @1 MACRO M1200 07-JUN-84 09:48 PAGE 69 SEQ 94 
XN 


X™ - CHECK FOR NONEXISTENT MEMORY 

oeaa -SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 

3* 

3142 ; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
3143 ON RETURN, IF "C” = 1, (R1) = NEXM ADDRESS. 

3144 "C” = 0, ALL ADDRESSES OK. 

3145 ; 

3146 ;CALL: MOV ADR1,R1 

3147 3 MOV ADR2,R2 

3148 H JSR PC,NXM 

tH ; RETURN sTEST “C” AND PROCEED. 

3 

3151 017120 012737 017152 000004 XNXM: MOV #2$, 084 ; SET BUSERR VECTOR. 

3152 017126 012737 000200 000006 MOV #PRI04 , 06 

3153 017134 005003 CLR R3 sFLAG. 

3154 017136 005711 1$: TST C(R1) sTEST THE ADDRESS(ES). 

3155 sIF ANY TRAP, CONTINUE AT 2$. 
3156 017140 020102 CMP R1,R2 sOTHERWISE, CONTINUE HERE. 
3157 017142 001407 BEQ 3$ ;BR IF FINISHED (NO NEXM‘S). 
3158 017144 062701 000002 ADD #2,R1 ;SET NEXT ADDRESS... 

aed 017150 000772 BR 1$ ;...AND CONTINUE. 

3161 017152 005103 2s: COM R3 GOT ONE, SET FLAG... 

3162 017154 012716 017162 MOV #3$,(SP) 

3163 017160 000002 RTI ;...AND DISMISS INTERRUPT... 
3164 017162 3$: CLRVEC #4 ;...AND GIVE BACK THE VECTOR. 

017162 012700 000004 MOV #4,RO 
017166 104436 TRAP C$CVEC 

3165 017170 005703 TST R3 ;DID WE CATCH ONE ?? 

3166 017172 001401 BEQ +4 sNO, “C” = 0, SKIP NEXT. 
3167 017174 000261 SEC sYES, “C” = 1, (R1) = NEXM ADDR. 
3168 017176 000207 RTS PC 

3169 

3170 

3171 

3172 

thy -SBTTL TSTLOOP - CHECK ITERATION COUNT 

1 + 

3175 ; SUBROUTINE TO EXECUTE TEST ITERATIONS. 

3176 ; EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
is. ; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 

178 ; 

3179 ; CALL: LOOPTO ARG 

3180 ; 

3181 017200 TSTLOOP: : 

3182 017200 005737 002136 TST NOITS ; ITERATIONS INHIBITED? 
3183 017204 001006 BNE 1$ s YES. 

3184 017206 005737 002152 TST QvP ; NO. 

3185 017212 100403 BMI 1$ ;LOOPS DISALLOWED IN QUICK PASS. 
3186 017214 005337 002164 DEC LOOPCNT ; BUMP LOOP COUNTER. 

3187 017220 001002 BNE 2$ 

3188 017222 000241 1$: CLC ;LOOP DISALLOWED, OR DONE. 
3189 017224 000401 BR 3$ 

3190 017226 000261 2s: SEC ;LOOP ENABLED. 

3191 017230 000207 3$: RTS PC 

& eS 











CZTKEBO TK25 FRT END FUNC @1 


TSTLOOP - CHECK ITERATION COUNT 


3193 
3194 
3195 
3196 
3197 
3198 
3199 


017232 
017232 
017234 
017240 
017244 
017250 
017254 
017260 
017262 
017266 
017270 
017272 
017300 
017300 
017302 
017304 
017306 
017310 
017312 
017320 
017220 
017322 
017324 
017326 
017330 
017336 
017336 
017342 
017344 


010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 
100010 
052760 


104455 
000001 
003636 
005176 
000407 
052760 


104455 
000002 
004233 
000000 
012737 


013700 
104451 


003106 
017500 
005232 
016640 
002150 


003062 


160000 


160001 


177777 
002150 
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-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


3* 

; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
; INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 

; IN THE CURRENT RUN SEQUENCE. 

; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


FINPUT: 
; RO POINTER TO TEST ID ASCIZ STRING 
: 
OUTPUT: 
; RS ADDRESS OF FIRST DEVICE REGISTER 
3 
IMPLICIT OUTPUTS: 
; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
;SIDE EFFECTS: 
H 
; INTERRUPT LEVEL IS RASIED TO LEVEL OF 
; THE DEVICE UNDER TEST 
_ 
TSTSETUP:: 
MOV RO, -(SP) ;SAVE THE TEST ID MESSAGE 
CLR SIFLAG ; CLEAR "SOFT INIT” FLAG 
CLR ERRK ; CLEAR LOCAL ERROR COUNTER. 
CLR EXTA ; CLEAR ERROR EXTENSION FLAG. 
CLRB ©‘ INTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN, RO ; GET THE UNIT NUMBER, 
ASL RO ; ... AND MAKE IT A WORD OFFSET. 
TST NODEV ; DID STARTUP FIND THE DEVICE? 
BEQ ss ; BR IF YES 
BPL 3$ BR IF NOT IDLE 
003130 BIS #160000, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
ERRDF 1,NXR,NXRERR  ; NO DEVICE HERE -- PRINT IT 
TRAP  C$ERDF 
‘WORD 1 
“WORD NXR 
;WORD —NXRERR 
8 2$ 
003130 3s: BIS #160001,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
ERRDF  2,NOINIT ; DEVICE NOT IDLE 
TRAP —CSERDF 
‘WORD 2 
“WORD NOINIT 
“WORD 0 
003060 2%: HOV #-1,DUFLG ; DROP THE UNIT 
DODU —sdUNTTN 
MOV UNITN, RO 


TRAP CsD0DU 
DOCLN ; ABORT THE PASS 














CZTKEBO TK25 FRT END FUNC @1 
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


017344 
3240 017346 
3241 
3242 017350 
017350 
3243 017352 
3244 017356 
3245 017360 
3246 017362 
017362 
017364 
017370 
017374 
027376 
017400 
3247 017404 
3248 017410 
017410 
017414 
3249 017416 
3250 017420 
3251 017424 
3252 017426 
3253 


104444 
000423 


104421 
032700 
001412 
011600 


010046 
012746 
012746 
010600 
104417 
062706 
005237 


013700 
104441 
005726 
013705 
000207 

045 


001000 


017426 
000002 


000006 
002162 


002160 


002154 
123 
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TRAP 
BR 


4$: RFLAGS 
TRAP 


1$: INC 


S$: TST 


R 
045 =TNAM: -ASCIZ 


C$DCLN 
5$ 


RO 
C$RFLA 
PNT ,RO 
i$ 


(SP) ,RO 
#TNAM,RO 
RO, -(SP) 
#@TNAM, -CSP) 
Sy -(SP) 


(SP)+ 
CSRADDR,RS 
PC 

'SSSTSA Test’ 





SEQ 96 


; GET THE OPERATOR FLAGS. 


; PRINT THE TEST NUMBERS? 
; BR IF NO 

sGET THE ID MESSAGE 
sDISPLAY THE TEST ID 


; BUMP TEST COUNTER. 
sPRIORITY THAT OF DEVICE 


Cy 


sFIX UP THE STACK 
+ ADDRESS OF TSV REGISTERS ON UNIBUS 








CZTKEBO TK25 FRT END FUNC @1 


TSTEND 


- PRINT ERRORS RECEIVED 


017442 
017442 
017444 
017450 
017452 
017452 
017456 
017462 
017466 
017470 
017472 
017476 


017500 
017502 
017521 


017566 
017572 
017574 
017600 
017602 
017606 
017610 
017614 
017616 
017620 
017622 


017624 
017626 
017632 
017634 
017640 
017644 
017650 
017652 
017660 
017662 
017662 
017664 
017670 
017672 
017700 
017700 
017702 
017704 


104421 
030027 
001412 


013746 
012746 
012746 
010600 
104417 
062706 
000207 


000000 
045 
105 


005237 
010046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 


010046 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 


104421 
032700 
001013 
012737 


104455 
000004 
017521 


020000 


.017500 


017502 
000002 


000006 


101 
122 


017500 
002150 
003130 
007777 


002150 
003130 
170000 
002142 


017500 


000040 
177777 
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-SBTTL TSTEND 


(FRR RR AR A SES $A e  SSERE E S  R S  ES 


- PRINT ERRORS RECEIVED 


; 
; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
; IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 


; 
TSTEND: A RO 


TRA C$RFLA 
BIT RO, #IER 
BEQ 1$ ; BR IF “IER” NOT SET. 
PRINTF #ESUM,ERRK ; PRINT ERROR COUNT. 
MOV ERRK , -(SP) 
MOV #ESUM, -C SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6, SP . 
1s: RTS PC 
ERRK: 0 ; LOCAL ERROR COUNT. 
040 ESUM: -ASCIZ /#A SDA ERRORS/ 
122 EMAXDU: ray ERROR LIMIT REACHED -- DROPPING UNIT/ 
-EV 
-SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
3* 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
INCERK: INC ERRK ; INCREMENT LOCAL ERROR COUNT 
MOV RO, -CSP) ; SAVE RO 
MOV UNITN,RO ; GET UNIT NUMBER, 
ASL RO ; ... AND MAKE IT A WORD OFFSET. 
ADD #ERTABL ,RO s RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INC (RO) s INCREMENT THE DEVICE ERROR COUNT 
BIT #7777, (RO) ; DID WE OVERFLOW THE FIELD? 
BNE -1$ ; BR IF NO. 
DEC CRO) + YES -- BACK IT UP TO 7777. 
1$; MOV (SP)+,RO + RESTORE RO 
RTS - PC ; RETURN TO CALLER. 
CKEMAX: MOV RO, -CSP) ; SAVE RO 
MOV UNITN,RO ; GET UNIT NUMBER 
ASL RO ; ... AND MAKE IT A WORD OFFSET 
MOV ERTABL(RO),RO ; GET ERROR TABLE ENTRY 
BIC #170000, RO ; EXTRACT ERROR COUNT FIELD 
CMP RO, GERRMAX ; IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
BHIS 1$ ; BR IF YES 
002140 CMP ERRK ,LERRMAX ; IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BLO 2s ; BR IF NO 
1$: RFLAGS RO ; GET OPERATOR FLAGS 
TRAP C$RFLA 
BIT #IDU,RO ™; IS DROPPING INHIBITED? 
BNE 2s ; BR IF YES. 
003060 MOV #-1,DUFLG s NO -- DROP THE UNIT 
ERRDF 4,EMAXDU 
TRAP CSEROF 
-WORD 4 
WORD EMAXDU 


SEQ 97 





qaqa" os 


CZTKEBO TK25 FRT END FUNC @1 


INCERK 


3301 


3302 





- INCREMENT LOCAL ERROR COUNT 


017706 
017710 
017710 
017714 
017716 
017716 
017720 
017722 


017724 
017724 
017730 
017734 
017736 
017744 
017750 
017756 
017760 
017760 
017762 
017766 
017770 
017774 


000000 


013700 
104451 


104444 
012600 
000207 


013701 
006301 
062761 
005237 
023727 
002406 


104421 
032700 
001002 
004737 
000207 


002150 


002150 
000001 


002170 
002170 


040000 
017776 





003130 
000031 


9$; 


CHECK FATAL COUNTER, AFTER INC, FOR MORE THAN 25 
ERRORS AND IF OVER CALL UNIT DROP ROUTINE 
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0 

UNITN 
UNITN,RO 
CsD0DU 


C$DCLN 
te 


P 
FATCHK - INC FATAL ERRORS AND CHECK FOR LIMIT 


UNITN,R1 
R1 


a 


FATFLG 


FATFLG,#25. 


9$ 

RO 

C$RFLA 
#BIT14,RO 
9$ 


PC ,CKDROP 
PC 









; RESTORE RO 
; RETURN TO CALLER 


sBETTER SAVE THE REGISTERS 

sPICK UP THE UNIT NUMBER 

sMAKE IT INTO A BYTE OFFSET 

sADD 1 TO THE PROPER UNIT'S ERROR COUNTER 
sBUMP FATAL ERROR COUNTER 

s;CHECK AGAINST 25 

;BR, IF LESS THAN 25 ERRORS 

sREAD THE FLAGS INTO RO 


;BR, IF LOOP ON ERROR IS SET 
sOTHERWISE NEVER BE ABLE TO SCOPE ETC. 
sDROP UNIT IF ALLOWED 
sRETURN ETC. 
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CKDROP - CHECK IF UNIT SHOULD BE DROPPED 





44 -SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
;* 
Sees ; CHECK IF UNIT SHOULD BE DROPPED 
2 he 
3333 017776 010046 CKDROP: MOV RO,-(SP) 
3334 020000 FORCERROR 1$,NOTSSR 
3335 020010 RFLAGS RO 
020010 104421 TRAP CSRFLA 
3336 020012 032700 000040 BIT #IDU,RO 
3337 020016 001010 BNE 1$ 
3338 020020 011600 MOV (SP),RO 
3339 020022 012737 177777 003060 MOV #-1,DUFLG 
3340 020030 DODU UNITN 
020030 013700 002150 MOV UNITN,RO 
020034 104451 TRAP C$D0DU 
3341 020036 DOCLN ;ABORT THE PASS 
020036 104444 TRAP C$DCLN 
3342 020040 012600 1$: MOV (SP)+,RO 
3343 020042 000207 RTS PC 
3344 
3345 
3346 
3347 
sted -SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
tay ; SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM. 
1 ; 
3352 020044 CONFIG: 
3353 020044 004737 016470 JSR PC ,SOFINIT 
3354 020050 000207 RTS PC 
3355 
3356 
3357 
= A 











CZTKEBO TK25 FRT END FUNC #1 MACRO M1200 07-JUN-84 09:48 PAGE 73 SEQ 100 
KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 


oH -SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
60 H 
ieee ; SUBROUTINE - ENABLE MEM MGT. 

2 F 
3363 020052 005737 003100 KTON: TST KTFLG ; GOT KT? 
3364 020056 001403 BEQ i$ ; NO. 
3365 020060 012737 000001 177572 MOV #1,SRO0 ; YES. ENABLE KTi1. 
3366 020066 000207 1$: RTS PC 
3367 
3368 
3369 
3370 3 
ik ; SUBROUTINE - DISABLE MEM MGT. 

F 

3373 020070 005737 003100 KTOFF: TST KTFLG ; GOT KT11? 
3374 020074 001405 BEQ i$ ; NO. 
3375 020076 000240 NOP 
3376 020100 000240 NOP 
3377 020102 012737 000000 177572 MOV #0,SRO ; DISABLE KT. 
3378 020110 000207 1$: RTS PC 
3379 
3380 












CZTKEBO TK25 FRT END FUNC @1 
SETMAP - SETUP PAR6 MAPPING 
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3382 -SBTTL SETMAP - SETUP PAR6 MAPPING 

3383 

3384 3+ 

3385 3 

3386 ;THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 

3387 ;AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 

3388 ;IS RETURNED BIASED TO PARG6. 

3389 3 

3390 s INPUTS: 

3391 F 

3392 8 RO HIGH ORDER ADDRESS BITS 

3393 F R1 LOW ORDER ADDRESS BITS 

3394 ’ 

3395 ;OUTPUTS: 

3396 ; 

3397 : RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
3398 3 CARRY SET IF SUCCESS 

3399 F CLR IF ERROR 

3400 3° 

3401 020112 SETMAP: 

3402 020112 SAVREG ;SAVE R1i-R4 UNTIL NEXT RETURN 
3403 020116 005737 003100 TST KTFLG sSYSTEM HAVE ABOVE 28K? 

3404 020122 001433 BEQ 10$ ;BR IF NO 

3405 020124 010102 MOV R1,R2 :SAVE LOW ORDER BITS 

3406 000006 -REPT 6 

3407 ASR RO sCONVERT WORD ADDRESS TO 32W BLOCKS 
3408 ROR R1 sMAKE IT DOUBLE PRECISION 
3409 .-ENDR 

3410 020156 042701 000177 BIC #177,R1 sALINE FOR LOWER 4K BOUNDARY 
3411 020162 020137 003100 CMP R1,KTFLG sHIGHER THAN EXISTING MEMORY? 
341° 020166 103011 BHIS 10$ ;BR IF YES 

34135 020170 010137 172354 MOV R1, @#KIPARG ;SETUP MAPPING REGISTER PAR6 
3414 020174 042702 160000 BIC #160000,R2 ;SETUP DISPLACEMENT IN PAGE 
3415 020200 062702 140000 ADD #140000,R2 ;ADD IN PAR6 BIAS 

3416 020204 010200 MOV R2,RO0 sRETURN IN RO 

3417 020206 000261 SEC ;SET SUCCESS 

3418 020210 000401 BR 15$ ; 

3419 020212 000241 10$: CLC ;SET FAILURE 

3420 020214 000207 15$: RTS PC ;RETURN 

3421 





CZTKEBO TK25 FRT END FUNC #1 


FILLMEM 


eer 


3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 





- FILL MEMORY WITH BACKGROUND PATTERN 


020216 
020216 
020222 
020226 
020230 
020234 
020240 
020242 
020244 
020246 
020252 
020254 
020260 
020262 


020332 
020336 
020340 
020344 
020346 
020352 
020360 
020366 
020370 
020374 
020400 


004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
004737 
005000 
013701 
000006 


004737 
010320 
020027 
103774 
162700 
062737 
023737 
001402 
000137 
004737 
000207 





020070 


003072 
003074 


003100 
020052 
003104 


020112 
160000 
020000 
000200 172354 
172354 003100 


020336 
020070 


10$: 


30$: 


50$: 
55$: 
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-SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


FREE 
KTFLG 


OUTPUTS: 


NONE 








FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 
RO = BACKGROUND PATTERN 


= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 


PC ,KTOFF 
RO,R3 
FREE ,R1 


FRESIZ,R2 
hea 


PST32W,R1 
6 


R1 
RO 


PC,SETMAP 
R3,CRO)+ 


#20000 ,RO 
#200 , B@KIPARE 
BOKIPARG ,KTFLG 


sSAVE R1-RS UNTIL NEXT RETURN 
sDISABLE KT. 

sCOPY TEST PATTERN 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sSTORE A BACKGROUND WORD 

sDONE ALL MEMORY IN FREE SPACE? 
;BR IF NO 

3; GOT KT? 

; NO. GET OUT. 

s YES. ENABLE KT. 

sHIGH ORDER ADDRESS START 

sGET >28K START ADDRESS CIN 32W BLOCKS) 


sCLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 

;STORE TEST PATTERN IN >28K ADDRESS 
;END OF PAR6 MAPPING AREA? 

:;BR IF NO 

;BACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 

;BR IF YES 

:KEEP GOING ON ETC. 
; DISABLE KT. 






SEQ 102 











 patadatt ies 


CZTKEBO TK25 FRT END FUNC @1 


CMPMEM 


3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
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- COMPARE MEMORY TO BACKGROUND PATTERN 


020070 
003072 
003074 


002204 
002202 
002176 
002200 


003100 
020052 
003104 


000177 


020112 


002202 





-SBTTL 


CMPMEM 


- COMPARE MEMORY TO BACKGROUND PATTERN 


7¢ 
; COMPARE MEMORY WITH A BACKGROUND PATTERN 


oe ee Ge Gs © Ge Gs oe Gs Ge Ge Ge Gs Gs os os oe 


10$: 


15$: 


30$: 


INPUTS: 
RO = BACKGROUND PATTERN 


FREE 
KTFLG 


OUTPUTS: 


CARRY 
CARRY 


ERRHI 
ERRLO 
EXPD 
RECV 


= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 


- SET IF NO ERROR 


- CLR IF ERROR 
IMPLICIT OUTPUTS: 


- ERROR HIGH ADDRESS 
- ERROR LOW ADDRESS 


- EXPECTED DATA 
- RECEIVED DATA 


R3,(R1) 
15$ 
R1,ERRLO 
ERRHI 

R3 EXPO 
(R1),RECV 
50$ 


32$ 
RO, ERRHI 


sSAVE R1-RS UNTIL NEXT RETURN 
sCOPY TEST PATTERN 

sDISABLE KT. 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sFREE SPACE LOCATION EQUAL TO EXPD? 
;BR IF YES 

s;SAVE ADDRESS IN ERROR 

sNO HIGH ADDRESS 

sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


; 

sPOINT TO NEXT ADDRESS 

sDONE ALL MEMORY IN FREE SPACE? 
:BR IF NO 

; GOT KT? 

s NO. GET OUT. 

; YES. ENABLE KT. 

sHIGH ORDER ADDRESS START 


sGET >28K START ADDRESS CIN 32W BLOCKS) 


sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sPLINE 4K BOUNDARY 

sSAVE HIGH ORDER 

sSAVE LOW ORDER 

sSETUP PAR6 MAPPING REGISTER 
s;COPY ADDRESS BIASED TO PAR6 


sRESTORE LOW ORDER IN NON PAR6 FORMAT 
sRESTORE HIGH ORDER IN NON PAR6 FORMAT 


sABOVE 28K LOCATION EQUAL EXPD? 
;BR IF YES 
sSAVE HIGH ORDER IN ERROR 






SEQ 103 








CZTKEBO TK25 FRT END FUNC @1 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 


(Sa 


3528 


020562 


010137 
010337 
011437 
000421 
062701 
005500 
062704 
020427 
103755 
162704 
062737 
023737 
101744 
004737 
000241 
000403 
004737 
000261 
000207 


002204 
002176 
002200 
000002 


000002 
160000 


020000 
000200 
172354 


020070 


020070 
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MOV R1i,ERRLO 

MOV R3,EXPD 

MOV (R4),RECV 
50$ 


BR 
32$: ADD #2,R1 
ADC RO 
ADD #2 ,R4 
CMP R4 , #160000 
BLO 30$ 


SUB #20000 ,R4 


172354 ADD #200 , BOK IPARG 
003100 CMP SBOKIPARG ,KTFLG 
BLOS 30$ 
50$: JSR PC ,KTOFF 
cLC 
BR 60$ 
55$: JSR PC ,KTOFF 
SEC 


60$: RTS PC 


SEQ 104 


sSAVE LOW ORDER IN ERROR 
sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


: 
sUPDATE NON PAR6 ADDRESS 
sMAKE IT DOUBLE PRECISION ADD 
sUPDATE PAR FORMAT ADDRESS 
sEND OF PAR6 MAPPING AREA? 
sBR IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 

sBR IF NO 

sTURN OFF MEMORY MAPPING 


_#SET FAILURE 


; 
sTURN OFF MEMORY MAPPING 
sSET SUCCESS | 


~—— 








CZTKEBO TK25 FRT END FUNC @1 


REGSAV 


3584 020720 


104422 
010446 
010346 
010246 
010146 
010546 
016605 
004736 
012601 
012602 
012603 
012604 
012605 


104422 
000207 


- SAVE R1-RS ON STACK 


000012 
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-SBTTL REGSAV - SAVE R1-RS ON STACK 
3¢ 


; 
sROUTINE TO 
sSAVE R1 THROUGH RS ON THE STACK 


3 
sCALLING SEQUENCE: 


° 
: JSR R5 ,REGSAV 


; 

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
jin Bit Bs, RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
sREGISTERS. 


5 

sTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 

3 

ge 


REGSAV: 
BREAK ;LOOK FOR CNTL C 
TRAP C$BRK 
MOV R4,-(SP> 
MOV R3,-CSP) 

MOV R2,-(SP) 
MOV R1,-C(SP) 
MOV 10.(SP),R5 
JSR PC ,a(SP)-+ 
MOV (SP)+,R1 
f10V (SP)+,R2 
MOV (SP)+,R3 


MOV (SP)+,R4 

MOV (SP)+,RS 

BREAK ;LOOK FOR CNTL C 
TRAP CSBRK 

RTS PC 


a a a 
a A LS RE 


SEQ 105 








ZTKEBO TK25 FRT END FUNC @1 
- GET 8 BIT PATTERN FROM OPERATOR 


GETPAT 


3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 


3609 


3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3€19 


020722 
020722 
020726 
020726 
020730 
020732 
020734 
020736 
020740 
020742 
020744 
020746 
020746 
020746 
020750 
020754 


020756 
020760 


104443 
000406 


103367 
013700 
000207 


000000 
105 


020756 


116 
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124 





-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


3? 


é 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


3 
INPUTS: 
3 
3 NONE. 
3 
;OUTPUTS: 
3 
F RO OCTAL NUMBER FROM THE OPERATOR 
F 
s;CALLING SEQUENCE: 
3 
8 JSR PC ,GETPAT 
- 
GETPAT:: 
SAVREG ;SAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT,O,377,0,377,NO 
TRAP C$GMAN 
BR 10000$ 
. WORD PATDAT 
WORD TSCODE 
-WORD DATASC 
. WORD 377 


-WORD TS$LOLIM 
-WORD TSHILIM 


10000$: 
BNCOMPLETE i$ 
BCC 1$ 
MOV PATDAT RO 
RTS PC 


;LOCAL DATA AREA 


PATDAT: .WORD 


0 
DATASC: .ASCIZ ‘ENTER DATA 
-EVEN 


PATT 


sRETRY IF ERROR 


sDATA PATTERN FROM OPERATOR 
sRETURN TO CALLER 


; TEMPORARY STORAGE FOR DATA 
ERN‘ 











CZTKEBO 
GETSEL 


3642 
3643 


3644 


3645 
3646 
3647 
3648 


3649 
3650 
3651 
3652 
3653 
3654 
3655 
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- ISSVE MENU AND GET OPERATOR RESPONSE 


-SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
3° 
sROUTINE TO ISSUE A MENU AND GET 
;THE OPERATOR'S RESPONSE. 
H 
INPUTS: 
H 
: RO ADDRESS OF ASCIZ STRING OF MENU 
: Ri MAXIMUM ALLOWABLE OPERATOR RESPONSE 
; 
;OUTPUTS: 
; 
H RO NUMBER OF THE OPERATOR'S SELECTION 
021004 GETSEL:: 
021004 SAVREG ;SAVE GENERAL REGISTERS 
021010 010002 MOV RO,R2 sSAVE THE MENU ADDRESS 
021012 010203 18: MOV R2,R3 sSTART OF MENU STRING 
021014 005713 2s: TST (R3) sEND OF ASCII ? 
021016 001412 BE 3$ sBRANCH IF ALL LINES DISPLAYED 
021020 PRINTF #SELASC,(R3)+ ;DISPLAY THE MENU 
021020 012346 MOV (R3)+,-CSP) 
021022 012746 021170 MOV #SELASC, -( SP) 
021026 012746 000002 MOV #2,-(SP) 
021032 019600 MOV SP ,RO 
021034 104417 TRAP CSPNTF 
021036 062706 000006 ADD #6,SP 
021042 000764 BR 2$ 
021044 104443 TRAP C$GMAN 
021046 000406 BR 10001$ 
021050 021224 -WORD MENRES 
021052 000042 . WORD TS$CODE 
021054 021175 -WORD MENASC 
021056 177777 . WORD -1 
021060 000000 .» WORD T$LOLIM 
021062 177777 WORD T$HILIM 
021064 10001$: 
021064 BNCOMPLETE 1$ sRETRY IF ERROR 
021064 103352 Bcc i$ 
021066 013700 021224 MOV MENRES ,RO ;GET THE OPERATOR’S REPLY 
021072 020001 CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
021074 101411. BLOS 5$ ;BRANCH IF OK 
021076 PRINTF #MENERR ;DISPLAY ERROR MESSAGE 
021076 012746 021122 MOV #MENERR, -( SP) 
021102 012746 000001 MOV #1,-(SP) 
021106 010600 MOV SP ,RO 
021110 104417 TRAP CSPNTF 
021112 062706 000004 ADD #4,SP 
021116 000735 BR 1$ sRETRY 
021120 000207 5$: RTS PC sRETURN TO CALLER 
021122 045 116 045 MENERR: .ASCIZ ‘SNSA #&* Menu Selection Too Large #+*' 
021170 045 116 045 SELASC: .ASCIZ ‘sNsT’ 
021175 105 156 164 MENASC: yoy ‘Enter Menu Selection: ‘ 
021224 000000 MENRES: . WORD 0 
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CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


+244 -SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
6 3+ 
3659 F 
aeee sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
661 ; 
3662 s INPUT: 
3663 3 
3664 3 NONE. 
3665 3 
3666 ;OUTPUT: 
3667 3 
3668 PF CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
og 44 $ 1 MANUAL INTERVENTION IS OK 
3 
3671 ;SIDF EFFECTS: 
3672 H 
3673 3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3674 3 NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3675 3 ALLOWED. 
3676 3 
3677 3- 
3678 
3679 021226 CHKMAN: : 
3680 021226 SAVREG :SAVE THE REGISTERS 
3681 021232 MANUAL ;SEE IF MANUAL INTERVENTION OK 
021232 104450 TRAP C$MANI 
3682 021234 BCOMPLETE 1$ ;BRANCH IF ALLOWED 
021234 103411 BCS 1$ 
3683 021236 PRINTF #NOMAN ;PRINT THE WARNING MESSAGE 
021236 012746 021262 MOV #NOMAN, -(SP) 
021242 012746 000001 MOV #1,-CSP) 
021246 010600 MOV SP ,RO 
021250 104417 TRAP CSPNTF 
021252 062706 000004 ADD #4 ,SP 
3684 021256 000241 CLC ;CLEAR CARRY FOR ERROR 
oad 021260 000207 1$: RTS PC ;RETURN 
68 
aed 021262 045 116 045 NOMAN: .ASCIZ ‘SNSA *&&* Manual Intervention not Allowed - Test Aborted #««‘ 
68 -even 
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ENVIRN - SETUP FREE DIAGNOSTIC SPACE 





sty -SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
1 3 
ote | ; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 

6 3 
3694 021356 ENVIRN: MEMORY RO 

021356 104431 TRAP C$MEM 

3695 021360 010037 003072 MOV RO, FREE ; GET 1ST FREE ADDRESS... 
3696 021364 062737 000002 003072 ADD #2 ,FREE 
3697 021372 011037 003074 MOV (RO), FRESIZ ;...AND WORD COUNT. 
3698 021376 162737 000004 003074 SUB #4 ,FRESIZ 
3699 021404 013702 002012 MOV LS$UNIT ,R2 ; GET NUMBER OF UNITS 
3700 021410 162737 000007 003074 10$: SUB #7 ,FRESIZ ; TAKE AWAY 7 WORDS PER UNIT 
3701 021416 005302 DEC R2 
3702 021420 001373 BNE 10$ 
3703 021422 013700 003072 MOV FREE ,RO ;GET FIRST FREE ADDRESS 
3704 021426 063700 003074 ADD FRESIZ,RO sPOINT TO LAST FREE ADDRESS 
3705 021432 162700 000002 SUB #2,RO0 sBACKUP 1 WORD 
3706 021436 010037 003076 MOV RO, FREEHI ;STORE LAST FREE ADDRESS 
add 021442 000207 RTS PC sRETURN 

08 


a EE 





= 7 


CZTKEBO TK25 FRT END FUNC @1 


KTINIT 


3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3754 
3755 
3761 


021444 
021444 
021450 
021454 
021462 
021464 
021470 
021476 
021502 
021504 
021512 
021520 
021524 
021526 
021532 
021540 
021542 
021546 
021552 
021554 
021560 


021562 
021566 


021570 
021574 


005037 
005037 
023727 
101444 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 


012716 
000002 


010037 
000207 


003100 
003102 
002120 


000004 
021562 
177572 
002120 
000177 
000004 


172340 
077406 


000200 
002000 
177600 
021570 


000004 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


001577 


000004 


003100 
003100 


177740 


3* 


-SBTTL KTINIT 


; 
sROUTINE TO INIT KT-11 


KTINIT: 


1$: 


6$: 
9$; 


MOV 
RTS 


KTFLG 

KTENABLE 

en 
$ 


O#ERRVEC ,RO 
#2$ , A#ERRVEC 
8¢SRO 

L$HIME ,KTFLG 
#177 ,KTFLG 
RO, O#ERRVEC 
RO 
#KIPARO,R1 


#77406, -40(R1) 
RO,CR1)+ 


1$ 

#177600, -(R1) 
9$ 

#6$,(SP) 


RO, O#ERRVEC 


PC 
-IIF DF ONEFILE, 


- SETUP 





SEQ 110 


KT11 MEMORY MANAGEMENT REGISTERS 


INIT >28K MEMORY FLAG 
INIT TEST >28K FLAG 
GOT ENOUGH MEMORY (>28K)? 


NO. 
SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 
GOT KT11? 
(TRAP IF NO). 
YES. SET KT FLAG. 


RESTORE OLD ERR VEC PTR. 
RO = AR DATA. 

Ri = KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY "4K", 

AT “I/0"? 


NO. 

YES. SET KTPAR7 FOR I/O. 
SET UP RETURN 

RTI TO NEXT LOCATION 
RESTORE OLD ERR VEC PTR. 


-PAGE 
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PROTECTION TABLE 


3763 -SBTTL 4PROTECTION TABLE 
3764 021576 BGNPROT 
021576 L$PROT:: 
3765 021576 177777 177777 177777 -WORD  -1, -1, -1, -1 ;NO DEVICE PROTECTION REQUIRED. 
Hae 021606 ENDPROT 











CZTKEBO TK25 FRT END FUNC #1 
INITIALIZE SECTION 


3782 021606 
021606 
3783 021606 
3784 021606 
3785 021614 
3786 021620 
3787 021624 
3788 021630 
021630 
021634 
3789 021636 
021636 
3790 021640 
3791 021646 
3792 021650 
3793 021654 
3794 021656 
3795 021662 
3796 021664 
3797 021670 
3798 021672 
3799 021700 
3800 021702 
021702 
021704 
3801 021706 
021706 
021712 
3802 021714 
021714 
3803 021716 
021716 
021722 
3804 021724 
021724 
3805 021726 
021726 
021732 
3806 021734 
021734 
3807 021736 
3808 021736 
021736 
3809 021740 


012737 
005037 
005037 
005037 


012700 
104447 


103023 
023737 
103064 
005737 
100466 
013701 
006301 
005761 
001512 
032761 
001054 


104432 
000412 


012700 
104447 


103046 


012700 
104447 


103404 


012700 
104447 


103025 


104433 
005037 


005672 
003106 
003102 
002246 


000036 


002150 
003060 
002150 
003130 
040000 


000035 


000040 


000037 


002162 
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002146 


002012 


003130 


-SBTTL INITIALIZE SECTION 


++ 
s;THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


: 
sIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 


3+ 
sINSERT TEMPORARY JUMP TO ODT 


BGNINIT 

ori 

$: 

MOV #EPRT1,EPRTSW ;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG ;CLEAR "SOFT INIT” FLAG 
CLR KTENABLE ;CLEAR TEST ABOVE 28K FLAG 
CLR RAMSIZ ;CLEAR RAM SIZE FOR RAMERR ROUTINE 
READEF #E€F.CONTINUE 
MOV #EF . CONTINUE ,RO 
TRAP CSREFG 
BNCOMPLETE 1$ 
BCC i$ 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS 4$ ;BR IF NO. 
TST DUFLG ;DROPPED UNIT? 
BMI NXTU ;BR IF YES 
MOV UNITN,R1 
ASL R1 
TST ERTABL(R1) 
BEQ SETU 
BIT #BIT14,ERTABL(R1L) ;DROPPED? 
BNE NXTU 
EXIT INIT ;D0 NOTHING IF “CONTINUE”. 
TRAP CSEXIT 
-WORD 1L10030-. 

1$: READEF #E€F.NEW 
MOV #EF .NEW,RO 
TRAP CSREFG 
BNCOMPLETE NXTU ;TAKE NEXT UNIT IF NOT NEW PASS. 
BCC NXTU 
READEF #EF.START 
MOV #EF .START,RO 
TRAP CSREFG 
BCOMPLETE 2$ 
BCS 2$ 
READEF #EF.RESTART 
MOV #EF .RESTART,RO 
TRAP CSREFG 
BNCOMPLETE 31$ 
BCC 31$ 

2s: ;1ST PASS, BUS-INIT... 
BRESET ;BUS RESET. 
TRAP CSRESET 
CLR TSTCNT sNUMBER OF TESTS RUN IN PASS 


SEQ 112 








3810 021744 
3811 021750 
3812 021754 
3813 021754 
3814 021762 
3815 021766 
3816 021772 
3817 021776 
3818 022000 
3819 022004 
3820 022006 
3821 022010 
3822 022014 


3824 022020 
3825 022020 
3826 022026 
3827 022032 

022032 
3828 022034 
3829 022040 
3830 022046 
3831 022050 
3832 022056 
3833 022060 

022060 
3834 022062 
3835 022064 
3836 022064 
3837 022072 
3838 022074 
3839 022100 
3840 022102 

022102 
3841 022104 
3842 022110 


3844 022112 

022112 
3845 022114 
3846 022116 


3848 022116 
022116 
022122 

3849 022124 
022124 

3850 022126 

3851 022132 

3852 022136 

3853 022140 


3855 022144 
3856 022146 
3857 022150 
3858 022154 
3859 022160 





CZTKEBO TK25 FRT END FUNC #1 
INITIALIZE SECTION 


005037 
005037 


012737 


012737 
005037 


104422 
005237 
023737 
103423 
012737 
000401 


104444 
000240 


023727 
101752 
005737 
001747 


104421 
032700 
001343 


104424 
000741 


013700 
104442 


103342 
005037 
005237 
012001 
010137 


012001 
011002 
010237 
010137 
012721 


002170 
003332 


177777 
021356 
021444 
003130 
003330 


002152 
022064 


177777 
002166 


002150 
002150 


177777 


002012 


002166 


000100 


002150 


003060 
002166 


002154 


002160 
002156 
016712 


002152 


002150 


002012 
003060 


000001 


19$: 
20$: 


30$: 


31$: 


4$: 
NEWPAS : 


NXTU: 


11$: 
PASRPT: 


10$: 
SETU: 
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CLR FATFLG 

CLR SKIPT 

MOV #-1,QVP 
JSR PC ,ENVIRN 
JSR PC ,KTINIT 
MOV #ERTABL,RO 
CLR CRO)+ 

CMP RO, #ERTABE 
BLO 30$ 

BR 4$ 

CLR QvP 

JMP PASRPT 

MOV #-1,UNITN 
CLR DEVCNT 
BREAK 

TRAP C$BRK 

INC UNITN 

CMP UNITN,LSUNIT 
BLO SETU 

MOV #-1,DUFLG 
BR 11$ 

DOCLN 

TRAP CSDCLN 
NOP 

CMP LSUNIT, #1 
BLOS NEWPAS 

TST DEVCNT 

BEQ NEWPAS 
RFLAGS RO 

TRAP C$RFLA 

BIT #ISR,RO 
BNE NEWPAS 
DORPT 

TRAP C$DRPT 

BR NEWPAS 
GPHARD UNITN,RO 
MOV UNITN, RO 
TRAP C$GPHRD 
BNCOMPLETE NXTU 
BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV C(RO)+,R1 
MOV R1,CSRADOR 
MOV C(RO)+,R1 
MOV CRO),R2 
MOV R2,IPRI 
MOV R1,IVEC 
MOV #INTR,CR1)+ 















SEQ 113 
sRESET FLAG TO ZERO “FATAL ERRORS” 
;CLEAR THE SUBTEST “SKIPPER” 
3...-QUICK VERIFY... 
sSET ENVIRONMENT. 
sINITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


3GO REPORT THE STATUS 


sINIT UNIT NUMBER... 
sCLEAR COUNT OF DEVICES RUNNING 


3...AND SET NEXT UNIT NUMBER. 


ABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
;BR IF ONLY 1 

sARE ANY STILL RUNNING? 

;BR IF NO 


;SHOULD WE PRINT STATISTICS 
;BR IF NO 


sGET UNIT N P-TABLE POINTER. 


3BR IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 


sGET 1ST REGISTER ADDRESS. 
sADDRESS OF REGISTERS OF UNIT UNDER TEST 


sGET VECTOR ADDRESS. 
sGET INTERRUPT PRIORITY 
sSET INTERRUPT PRIORITY. 
sSET INTERRUPT VECTOR POINTER... 
3...VECTOR... 


CZTKEBO TK25 FRT END FUNC #1 





INITIALIZE SECTION 
3860 022164 


3861 
3862 


3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 


3894 


3895 
3896 
3897 


022166 


022166 
022172 
022174 
022202 
022206 
022214 
022216 
022216 
022220 
022224 
022226 
022226 
022232 
022236 
022242 
022244 
022246 
022252 
022252 
022256 
022262 
022264 
022270 
022274 
022276 
022302 
022310 


022310 
022310 
022314 
022316 
022316 
022316 


022320 


010221 


013701 
006301 
052761 
005037 
023727 
101416 


104421 
032700 


012737 


012700 
104441 


104411 
045 


002150 
100000 


005232 
002012 


001000 


002150 
022320 
000002 
000006 


003062 
002154 


000000 
017120 


003062 
177777 


000000 


116 





003130 
000001 


003060 


045 PUNIT: 


;1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
sTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


10$: 


2s: 


; 
sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 


5$: 


L10030: 


MOV 


TST 
BEQ 


SETPRI 


TRAP 


-ASCIZ /SNSNSAseeee TESTING UNIT SD28A se004/ 
-EVEN 
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R2,(R1)+ 


ave 
S$ 


UNITN,R1 
R 


1 
ays sERTABLC(R1) ;SAY DEVICE RUNNING 


L$UNIT,#1 
10$ 

RO 

C$RFLA 

PNT ,RO 

10$ 

@PUNIT ,UNITN 
UNITN, -CSP) 
@PUNIT , -(SP) 


NODEV 
CSRADDR,R1 
R1,R2 
#TSSR,R2 
PC ,XNXM 


2$ 
R1,NODEV 
$- 1 + DUFLG 


#PRIOO 


C$INIT 










SEQ 114 
;...AND PRIORITY. 


31ST PASS ?? 
sNO, SKIP THE PASS 1 STUFF. 


sCLEAR ERROR EXTENSION FLAG. 
sARE WE TESTING MULTIPLE UNITS? 
:BR IF NO. 

sYES -- GET OPERATOR FLAGS. 


sSHOULD WE PRINT UNIT #? 
:BR IF NOT. 
sPRINT THE UNIT # 


;ADDRESS OF FIRST REGISTER 

sSTART OF REGISTERS ( 

sADDRESS OF TSSR REGISTER 

svEST BOTH CONTROLLER REGISTERS... 
.AND BR IF ALL: 

SFLAG DEVICE AS NON. EXISTENT 

;DROP THIS UNIT. 


sENABLE INTERRUPTS. 


~——— 









CZTKEBO TK25 FRT END FUNC @1 
ADD AND DROP UNITS SECTIONS 
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3899 -SBTTL ADD AND DROP UNITS SECTIONS 
3900 
3901 3+ 
3902 3 THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES, A DEVICE 
3903 ; TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
tee 3 OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
faa - 

3906 022366 BGNAU 

022366 LS$AU:: 
3907 022366 010001 MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
3908 022370 006301 ASL Ri ; MAKE IT A WORD INDEX 
3909 022372 052761 100000 003130 BIS #100000, ERTABL(R1) ; SET THE “ACTIVE” BIT 
3510 022400 042761 040000 003130 BIC #40000,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
3911 022406 PRINTF #1$,RO0 

022406 010046 MOV RO,-C(SP) 

022410 012746 022434 MOV #1$,-(CSP) 

022414 012746 000002 MOV #2,-(SP) 

022420 010600 MOV SP ,RO 

022422 104417 TRAP CS$PNTF 

022424 062706 000006 ADD #6 ,SP 
3912 022430 EXIT AU 

022430 000167 -WORD J$JMP 

022432 000026 -WORD L10031-2-. 
3913 022434 045 116 045 1$: -ASCIZ /sNSA UNIT SDA ADDED/ 
3914 EVEN 
3915 
3916 022462 ENDAU ; UNUSED. 

022462 L1003i: 

022462 104452 TRAP CsAU 
3917 see 
3918 ; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
+434 ; TO BE REMOVED FROM THE TEST LIST. 

3 
3921 ; SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
3922 ; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
3923 ; COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
3924 ; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
3925 ; WHICH ARE STILL ACTIVE. 
reoe ; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
2 

3928 022464 BGNDU 

022464 L$DU:: 
3929 022464 012737 177777 003060 MOV #-1,DUFLG 
3930 022472 010001 MOV RO,R1 
3931 022474 006301 ASL R1 
3932 022476 052761 140000 003130 BIS #140000, ERTABL(R1) ; SAY DROPPED 
3933 022504 000240 000240 000240 240,240,240 3 2222277227 
3934 022512 PRINTF #@#1$,RO — 

022512 010046 MOV RO, -(SP) 

022514 012746 022540 MOV #1$,-CSP) 

022520 012746 000002 MOV #2,-(SP) 

022524 010600 MOV SP ,RO 

022526 104417 TRAP CSPNTF 

022530 062706 000006 ADD #6 ,SP 
3935 022534 EXIT DU 

022534 000167 -WORD JS$JMP 

022536 000030 -WORD L10032-2-. 


a a a tials aR Et 





pe ee 


Bes Sigs 
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ADD AND DROP UNITS SECTIONS 


3936 022540 045 116 045 15: -ASCIZ /SNSA UNIT SDSA DROPPED/ 
3937 EVEN 
3938 022570 ENDDU 
022570 L10032: 
022570 104453 TRAP Csou 
3939 3o4 
3940 ; AUTO-DROP CODE SECTION. 
3941 s-- 
3942 022572 BGNAUTO 
022572 L$AUTO:: 
3943 022572 012703 000550 MOV #360. ,R3 sENOUGH TIME FOR 2400‘ REEL TO REWIND 
3944 022576 004737 016744 10$: JSR PC ,WAITF ;WAIT FOR SSR TO SET 
3945 022602 103420 BCS 20$ ;LEAVE WHEN SSR IS SET 
3946 022604 DELAY 250. sWAIT FOR .25 SECONDS 
022604 012727 000372 MOV #250. ,(PC)+ 
022610 000000 -WORD O 
022612 013727 002116 MOV LS$DLY,(PC)+ 
022616 000000 -WORD 0O 
022620 005367 177772 DEC -6(PC) 
022624 001375 BNE .-4 
022626 005367 177756 DEC -22(PC) 
022632 001367 BNE .-20 
3947 022634 005303 DEC R3 ;BUMP COUNTER DOWN 
3948 022636 001357 BNE 10$ sKEEP GOING 
3949 022640 004737 017776 JSR PC ,CKDROP ;TRY AND DROP UNIT 
3950 022644 20$: 
3951 022644 ENDAUTO ; UNUSED. 
022644 L10033: 
022644 104461 TRAP CS$AUTO 


Posts 





gaye 





CZTKEBO TK2S FRT END FUNC @1 
CLEAN-UP AND REPORT CODING SECTIONS 


3961 022646 005737 003060 
3962 022652 100407 


3965 022654 013705 002154 
3966 022660 012765 000000 000000 
3967 022666 004737 016744 


022672 104412 


022674 012746 023136 
022700 012746 000001 


022710 062706 000004 


3979 022722 012704 003130 


3984 022736 032702 040000 
3986 022744 042702 170000 


022754 012746 023173 
022760 012746 000903 


022770 062706 000010 
3989 022776 020227 160000 


023006 012746 023255 


Fas 








MACRO M1200 07-JUN-84 09:48 PAGE 86 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


id 

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 

ge 


BGNCLN 

LSCLEAN:: 
TST DUFLG :"DROPPED” FLAG IS SET ON... 
BMI is ;...AND GROSS CONTROLLER FAULT... 

;...DON’T TRY TO XCT CLEANUP CODE. 

MOV CSRADOR,RS ; ADDRESS OF TSV REGISTERS ON UNIBUS 
MOV #0, TSSRCRS) 3:00 SOFT INIT 

1“ JSR PC ,WAITF 

23: ENDCLN 

L10034 


TRAP C$CLEAN 
see 


; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


gee 
BGNRPT 


LSRPT:: 
PRINTS #DEVSUM 
MOV @DEVSUM, -C SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP C$PNTS 
ADD 04,SP 
MOV R2,-(SP) 
MOV R3,-CSP) 
MOV R4,-C(SP) 
MOV MERTABL, Ra ; GET START OF ERROR TABLE. 
CLR R3 ; CLEAR UNIT NUMBER 
1$: MOV CR4),R2 ; GET ERROR TABLE ENTRY & TEST IT. 
BEQ 4s ; ZERO IF UNIT NOT RUN 
BPL 4$ 
BIT @BIT14,R2 


s WAS UNIT DROPPED? 
BNE 2$ ; BR IF YES 
BIC #*C7777,R2 ; GET ERROR COUNT FIELD 
— 7 at ; PRINT 


2s; cmMP R2,@160000 


WAS UNIT NON-EXISTENT? 
; BR IF NO 


MOV 
MOV @DEVNXR, -( SP) 






SEQ 117 





— 





CZTKEBO TK25 FRT END FUNC @1 
CLEAN-UP AND REPORT CODING SECTIONS 


3992 
3993 
3994 
3995 


3996 
3997 
3998 


3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 


4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4017 
4024 
4030 
4038 


023134 


023136 
023173 
023255 
023337 
023420 


012746 
010600 
104416 
062706 
000431 
020227 
001012 


010346 
012746 
012746 
010600 
104416 
062706 
000414 
042702 


010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 


104425 


045 
045 
045 
045 
045 





000002 


000006 
160001 


023337 
000002 


000006 
176000 


023420 
000003 


000010 
000002 


003330 


116 
101 
101 
101 
101 


045 
040 
040 
040 
040 
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MOV #2,-(SP) 
MOV SP ,RO 
TRAP CSPNTS 
ADD 06 ,SP 
BR 4s 
3$: CMP R2,160001 s WAS UNIT NOT READY AT STARTUP? 
BNE 30$ ; BR IF NO. 
PRINTS #@DEVNRD,R3 
MOV R3,-CSP) 
MOV @DEVNRD, -( SP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP C$PNTS 
AOD 06 ,SP 
BR 4$ 
30$: BIC #+C7777,R2 
PRINTS @DEVDRO,R3,R2 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV @DEVORO, -( SP) 
MOV #3,-C(SP) 
MOV SP RO 
TRAP CSPNTS 
ADD #10,SP 
4s: ADD #2,R4 
INC R3 
CMP R4, @ERTABE 
BLO 1$ 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
ENDRPT ; UNUSED. 
L10035: 
TRAP CS$RPT 
DEVSUM: .ASCIZ /sNSADEVICE STATUS SUMMARY :8N/ 
DEVONL: .ASCIZ /#A UNIT #D38A CONTROLLER READY, ERRORS = sDsN/ 
DEVNXR: .ASCIZ /#A UNIT SD38A DROPPED, NON-EXISTENT REGISTERSN/ 
DEVNRD: .ASCIZ /#A UNIT SD38A DROPPED, NOT READY AT STARTUPSN/ 
DEVDRO: ely /$A UNIT SD38A DROPPED, ERRORS = sDsN/ 
-EVEN 








a i a a ie 
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TEST i: BUS RESET TEST 
4040 -SBTTL TEST i: BUS RESET TEST 
4041 
4042 
4043 3 THIS TEST VERIFIES THAT THE MODULE’S DEVICE REGISTERS ARE 
4044 PF ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 
4045 8 BUILT-IN INITIALIZATION SELF-TEST MICRODIAGNOSTIC DID NOT FIND 
4046 F ANY BASIC PROBLEMS IN THE MODULE. AREAS OF LOGIC TESTED BY THE 
4047 : SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE REGISTER, 
4048 3 SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM. THIS 
4949 ’ TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
4050 3 VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
4051 3 WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER‘S INITIALIZATION 
4052 8 MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE 
4053 3 CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
4054 3 INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA) 
4055 3 BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND 
4056 3 OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
4057 3 CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
4058 Fy LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES. 
4059 3 THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND 
4060 3 REPORTS ONE OF THREE POSSIBILITIES: 
4061 F 
4062 F 
4063 3 1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET, 
4064 3 OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
4065 3 APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT THE 
4066 ; TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
4067 3 CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
4068 3 ERROR CEXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
4069 5 REPLACE THE CONTROLLER. IF THE CONTROLLER ITSELF IS BEING 
4070 F DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
4071 $ ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 
4072 ; 
4073 3 2. SSR = 0, SC = 0 AND THE ERROR CODE IN BITS 0-5 IS IN 
4074 3 THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
4075 3 CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
4076 3 INDICATES THAT A SERIOUS PROBLEM EXISTS. 
4077 : 
4078 
4079 023470 BGNTST 
023470 Ti:: 
4080 023470 005037 002170 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
4081 023474 012737 005672 002146 MOV #EPRT1,EPRTSW ;SET UP ERROR MESSAGE SWITCH 
4082 023502 005037 003100 CLR KTFLG sHOLD OFF KT11 
4087 023506 012700 023704 MOV #TST1ID,RO sASCII MESSAGE TO IDENTIFY TEST 
4088 023512 004737 017232 JSR PC, TSTSETUP ;00 INITIAL TEST SETUP 
4089 023516 012737 000005 002164 MOV #5. ,LOOPCNT sPERFORM 5 ITERATIONS 
4090 623524 TILGOP: 
4091 023524 005003 CLR R3 ;USE R3 AS’ FATAL ERROR FLAG 
4092 
4093 023526 BGNSUB 3//////////// BEGIN SUBTEST //////////7// 
023526 T1.1: 
023526 104402 TRAP C$BSUB 
4094 
4095 023530 BRESET ;ISSUE A BUS RESET 
023530 104433 TRAP CS$RESET 
4096 023532 004737 016744 JSR PC ,WAITF ;WAIT FOR READY 














CZTKEBO TK25 FRT END FUNC @1 


TEST 1: BUS RESET TEST 


4097 023536 
4098 023542 
4099 023544 
4100 023550 
4101 023554 
4102 023556 
41C6 023560 
023560 
023562 
023564 
023566 
4107 023570 
4108 023572 
4109 023572 
023572 
023572 
4110 


016501 
010102 
042702 
052702 
020102 
001405 


104455 
000145 
003603 
011566 
005203 


104403 


000000 


176277 
002200 





10$: 
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INC 
ENDSUB 









SEQ 120 










TSSRCRS),R1 sGET THE CONTENTS OF TSSR 
R1,R2 sSTART SETUP OF EXPECTED TSSR 
@tC<HIADDR!OFL>,R2 ;CLEAR OUT UNUSED BITS 
#SSR!INBA,R2 sR4 HAS EXPECTED CONTENTS 
R1,R2 sCOMPARE EXPECTED TO RECEIVED 
10$ sBRANCH IF COMPARE 
ERRNO, SFHERR , SFFMSG sREPORT A FATAL ERROR 
TRAP CSERDF 


-WORD 101 

-WORD SFHERR 

-WORD SFFMSG 
R3 sSET THE FATAL ERROR FLAG 


s\A\NA\NNNNANANN END — NANANAANAANAN 
0037: 
TRAP CSESUB 





CZTKEBO TK25 FRT END FUNC @1 
TEST 1: BUS RESET TEST 


4112 023574 005703 
4113 023576 001402 
4114 023600 004737 
4115 023604 005003 
4116 
4117 
4118 023606 

023606 

023606 
4119 


4120 023610 
4121 023614 
4122 023620 
4123 023624 
4124 023626 
4125 023632 
4126 023636 
4127 023640 
4131 023642 


017776 


104402 


005065 
004737 
016501 
010102 
042702 
052702 
020102 
001405 


104455 
000146 
003550 
011566 
005203 


000000 
016744 
000000 


176277 
002200 


4132 023652 
4133 023654 
4134 023654 


104403 
4135 
4136 
4137 023656 
4138 023660 
4139 023662 
4140 023666 
4141 023672 
4142 023674 
4143 023700 
023700 
023702 


005703 
001402 
004737 
004737 
103002 
000137 


104432 
000022 


017776 
017200 


023524 


4144 
4145 
4146 
4147 
4148. 
. 4189 023704 
4150 
4151 023724 
023724 
023724 


111 156 


104401 
4152 
4153 
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151 


208: 


INC 
ENOSUB 


10$: 


TST 
BEQ 
JSR 
JSR 
BCC 
JMP 
EXIT 


208: 


40$: 


R3 
20$ 
PC ,CKDROP 
R3 


TSSRCRS) 
PC ,WAITF 
TSSRCRS),R1 


R1,R2 
#tC<HIADDR!OFL>,R2 
#SSR!NBA,R2 

R1,R2 


10$ 
ERRNO, SFIERR ,SFFMSG 


R3 


R3 
20$ 
PC ,CKDROP 
PC, TSTLOOP 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


TSTLID: yoy ‘Initialization’ 


-EVE 
ENDTST 


sDID WE HAVE FATAL ERROR ? 
sBRANCH IF NOT 

GO DROP THIS UNIT, IF ALLOWED 
sRESET FATAL ERROR FLAG 





SEQ 121 


34//////////7/ BEGIN SUBTEST //////////// 
T : 


TRAP 


sWRITE TO ISSUE A SOFT RESET 
sWAIT FOR READY TO SET 
sGET REGISTER TSSR DATA 
sSTART SETUP OF EXPECTED TSSR 
s;CLEAR OUT UNUSED BITS 
sR4 HAS EXPECTED CONTENTS 
sCOMPARE EXPECTED TO RECEIVED 
sBRANCH IF COMPARE 
sREPORT A FATAL ERROR 
TRAP 
- WORD 
- WORD 
- WORD 
sSET THE ERROR FLAG 


CS$BSUB 


SFIERR 
SFFMSG 


sNV\NANNAANANNN END SUBTEST \ANAAAAAAAAAA 
L10040: 


” TRAP 


sFATAL ERROR DETECTED ? 
sBRANCH IF NOT 

sSEE IF TIME TO DROP UNIT 
sSHOULD WE DO ITERATIONS ? 
sBRANCH IF NOT 

sLOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST _— 


- WORD 


L10036: 
TRAP 


CSESUB 


CSEXIT 
L10036-. 


CSETST 








CZTKEBO TK25 FRT END FUNC @1 





TEST 2: RAM TEST 


4156 


023726 
023726 
023726 
023732 
023740 


023744 
023744 
023744 


005037 
012737 
005037 


104402 





002170 
005672 002146 
003100 


nS 
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-SBTTL TEST 2: RAM TEST 


THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE CONTROLLER 
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.£., THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THESE 

TESTS ARE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW. A 

BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 


AOD. 


TEST 2, SUBTEST 1: - 


THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE 
CONTROLLER INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDB 
WH ame THE FOLLOWING SEQUENCE FOR EACH ADDRESS 


BGNTST 
CLR 
MOV 
CLR 


BGNSUB 


i. 





SEQ 122 


THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB (VIA A 


WORD WRITE). 


THE ADDRESSED RAM LOCATION IS WRITTEN, THEN READ INTO 
THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE 
LOW BYTE OF TSDB. 


THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
THE DATA PATTERN ORIGINALLY WRITTEN; A DISCREPANCY IS 
REPORTED AS AN ERROR. 


THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN 

WRITTEN INTO TSDB (WORD WRITE), TO CAUSE THE LOCATION 
UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA. 
THE LOW BYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES 


REPORTED. 


THE HIGH BYTE OF TSBA IS CHECKED; IT SHOULD CONTAIN 
THE SUM OF THE HIGH AND LOW BYTES LAST WRITTEN INTO 
TSDB AS A WORD. A DISCREPANCY IS REPORTED AS A 2901 


PROBLEM. 


THE CONTENT OF TSSR IS CHECKED; SETTING OF THE SC BIT 


IS IGNORED. 


FATFLG 
#EPRT1,EPRTSW 
KTFLG 


OTHER DISCREPANCIES IN TSSR ARE REPORTED. 


T2:: 
;CLEAR FATAL ERROR FLAG 
;SET UP ERROR MESSAGE SWITCH 
sHOLD OFF KTil 


3//////////// BEGIN SUBTEST //// 
Ya. 
TRAP 





SASS SSSS 


C$BSUB 








CZTKEBO TK25 FRT END FUNC @1 
2: RAM TEST 


TEST 


4214 
4215 
4216 
4217 
4218 
4219 
4223 
4224 


4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4237 


4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4253 


4254 


4255 
4256 
4257 
4258 
4259 


4260 


023746 
023752 
023756 
023764 
023764 
023770 
023772 
023774 
023774 
023776 
024000 
024002 
024004 
024010 


024010 


024042 
024042 


024110 
024114 


024116 
024116 
024116 





012700 
004737 
012737 


004737 
103405 
010001 


104455 
000311 
003550 
011506 
012704 


110402 
110465 
110265 
116501 
120102 
001404 


104456 
000312 
024530 
016170 


005204 
020427 
001357 
005002 
005304 
110402 
110465 
116501 
120102 
001404 


104456 
000313 
024530 
016170 


104406 
005304 
022704 
001360 


104403 


024672 
017232 
000002 


016470 


000002 


177777 
177776 
177776 


000400 


177777 
177776 


000002 





002164 


T2LOOP : 


20$: 
25$: 


30$: 


40$: 


45$: 


MOV 
JSR 
MOV 


JSR 
BCS 


MOV 
ERRDF 


ERRHRD 


ERRHRD 


CKLOOP 
DEC 
CMP 
BNE 


ENDSUB 
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#TST2ID,RO 
PC, TSTSETUP 
#2 ,LOOPCNT 


PC ,SOF INIT 
20% 


RO,R1 
ERRNO, SFIERR , SFIMSG 


#2,R4 


R4,R2 

R4, TSDBH(RS) 
R2,TSDBLCRS) 
TSBALCRS),R1 

Ri,R2 

30$ 

ERRNO, TSBAM2 ,EXPREC 


R4,R2 
R4, TSDBH(RS) 
TSBALCRS),R1 
R1,R2 


45$ 
ERRNO, TSBAM2 ,EXPREC 


R4 
#2,R4 
40$ 






SEQ 123 


sASCII MESSAGE TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


300 INITIALIZE ON CONTROLLER 

sBR IF INIT WAS OK 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
- WORD 
-WORD SFIERR 


«WORD SFIMSG 
s;SET RAM ADDRESS AT TWO 


sEXPECTED DATA FROM WRAP-AROUND 
sLOAD ADDRESS INTO TSDB 

sLOADS DATA INTO RAM LOCATION 
sREADS WRAP DATA 

sDOES WRITTENCWRAP) = READ 

;BR IF OK, THEY ARE EQUAL 

sDATA NOT WRAPPED CORRECTLY 


TRAP CSERHRD 
-WORD 202 
-WORD TSBAM2 
-WORD EXPREC 

sNEXT ADDRESS 

sEND OF RAM MEMORY CHECK 

sLOOP TILL ALL RAM WRITTEN 

sCLEAR OUT R2 HIGH BITS 

sSET BACK TO 377 

sGET DATA PATTERN BACK IN SHAPE 

sLOAD UP RAM ADDRESS POINTER 

sREAD RAM CONTENTS BACK 

sCHECK WITH DATA WRITTEN 

;BR IF OK, DATA IN = DATA OUT 

sWRITTEN DATA NOT = TO READ 

, TRAP CSERHRD 

-WORD 203 
-WORD TSBAM2 
-WORD EXPREC 

SCOPE LOOP 

CSCLP1 


TRAP 
sDROP DATA COUNTER (PATTERN) 
sAT LOC TWO YET 
sBR, IF NOT AT TWO YET 


sV\ANNNANANANNN END SUBTEST \A\AANAANAAAAN 
L 42: 
TRAP 


CSESUB 











em nr en mr 


CZTKEBO TK25 FRT END FUNC @1 
TEST 2: RAM TEST 
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SEQ 124 


4262 
4263 ohana BGNSUB ALAA LLL eecIn SUBTEST ////S//S/ A117 
12 2: 

024120 104402 TRAP C$BSUB 

4264 ; TEST 2, SUBTEST 2 

4265 

4266 8 

4267 ; THIS SUBTEST WRITES RAM WITH ALL ZEROS 

pow ; THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 

4270 024122 004737 016470 JSR PC,SOFINIT :D0 INITIALIZE ON CONTROLLER 

4271 024126 103405 Bcs 20$ ;8R IF INIT WAS OK 

4275 024130 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

4276 024132 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
024132 104455 TRAP CSERDF 
024134 000314 -WORD 204 
024136 003550 -WORD SFIERR 
024140 011506 -.WORD SFIMSG 

4277 024142 005002 20$: CLR R2 ;TEST DATA = 0 

4278 024144 012704 000002 MOV #2,R4 STARTING RAM ADDRESS = 2 

rs bs 024150 253: 

4281 024150 110465 177777 MOVB R4, TSDBHC(RS) ;LOAD ADDRESS INTO TSDB 

4282 024154 110265 177776 MOVB R2,TSDBLCRS) ;LOADS DATA INTO RAM LOCATION 

4283 024160 116501 177776 MOVB TSBAL(RS), RL sREADS WRAP DATA 

4284 024164 120102 CMPB R1,R2 s;DOES WRITTENCWRAP) = READ ? 

4285 024166 001404 BEQ 30$ ;BR IF OK, THEY ARE EQUAL 

4289 024170 ERRHRD ERRNO, TSBAM2,EXPREC ;DATA NOT WRAPPED CORRECTLY 
024170 104456 TRAP CSERHRD 
024172 000315 -WORD 205 
024174 024530 .WORD TSBAM2 
024176 016170 -WORD EXPREC 

4290 024200 30$: 

4291 

4292 024200 005204 INC R4 ;NEXT ADDRESS 

4293 024202 020427 000400 CMP R4,#400 sEND OF RAM MEMORY CHECK 

aeee 024206 001360 BNE 25$ ;BR, MORE RAM TO GO 

4296 024210 005304 35$: DEC R4 ;SET BACK TO 377 

4297 024212 005002 CLR R2 ;SET TO ALL ZEROS 

4298 024214 40$: 

4299 024214 110465 177777 MOVB R4, TSDBH(RS) ;LOAD UP THE ADDRESS FOR RAM 

4300 024220 116501 177776 MOVB TSBALCRS),R1 ;READ THE RAM CONTENTS BACK 

4301 024224 005002 CLR R2 sLOOKING FOR 000000 (EXPECTED) 

4302 024226 120102 CMPB R1,R2 ;BOTH SHOULD BE 00000000 BINARY 

4303 024230 001404 BEQ 43$ :BR, IF DATA IS GOOD 

4307 024232 ERRHRD ERRNO, TSBAM3,EXPREC ;CHARACTERISTICS DATA NOT CORRECT 
024232 104456 TRAP CSERHRD 
024234 000316 -WORD 206 
024236 024612 WORD TSBAM3 
024240 016170 -WORD EXPREC 

4508 024242 012702 000377 43$: MOV #000377,R2 ;SET ALL ONES WORD . 

4309 024246 110465 177777 MOVB R4, TSDBH(RS) ;LOAD UP RAM ADDRESS POINTER 

4310 024252 110265 177776 MOVB R2, TSDBL(R5) ;WRITE DATA INTO RAM 

4311 024256 116501 177776 MOVB TSBAL(RS),R1 ;READ RAM CONTENTS BACK 

4312 024262 120102 CMPB R1,R2 s;CHECK WITH DATA WRITTEN 

4313 024264 001404 BEQ 45$ ;BR IF OK, DATA IN = DATA OUT 


i 














CZTKEBO TK25 FRT END FUNC @1 
TEST 2: RAM TEST 


4317 


4318 


4319 
4320 
4321 
4322 
4323 


4324 


024266 
024266 
024270 
024272 
024274 
024276 
024276 
024300 
024302 
024306 


024310 
024310 
024310 


104456 
000317 
024530 
016170 


104406 
005304 
022704 
001342 


104403 





000002 





45$: 
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ERRHRD ERRNO, TSBAM2 ,EXPREC 


CKLOOP 

DEC R4 
CMP #2,R4 
BNE 40$ 


ENDSUB 





SEQ 125 


sWRITTEN DATA NOT = TO READ 
TRAP CSERHRD 


-WORD 207 
-WORD TSBAM2 
-WORD EXPREC 


sSCOPE LOOP 

TRAP 
sDROP RAM ADORESS POINTER 
sAT LOC 2 YET 
;BR, IF NOT AT TWO YET 
s\ANANANANANAN END — NAANAANNANANAN 


L100 
TRAP CSESUB 


CSCLP1 











CZTKEBO TK2S5 FRT END FUNC #1 
TEST 2: RAM TEST 


rt: 


024312 
024312 
024312 


024314 
024320 
024322 
024324 
024324 
024326 
024330 
024332 
024334 
024340 
024344 
024344 
024344 
024346 
024352 
024356 
024362 
024364 
024366 
024366 
024370 
024372 
024374 
024376 
024376 
024376 
024376 


024400 
024402 
024406 


024410 
024412 
024412 
024416 
024420 
024424 
024430 
024432 
024434 
024434 
024436 
024440 
024442 
024444 
024446 


104402 


004737 
103405 
010001 


104455 
000320 
003550 
011506 
012702 
012704 


104404 
110465 
110265 
116501 
120102 
001404 


104456 
000321 
024530 
016170 


104405 


005204 
020427 
001356 


005304 


012702 
005001 
110465 
116501 
120102 
001404 


104456 
000322 
024612 
016170 
005002 
110465 





016470 


177777 
000002 


177777 
177776 
177776 


000400 


000377 


177777 
177776 


177777 





oe es of os oe 


20$: 
25$: 


30$: 


35$: 
40$: 


43$: 


BGNSUB 


TEST 2, 
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SUBTEST 3 





SEQ 126 


TAAALAAAAAAA as  * we SISAAAAASASS 
2.3: 
TRAP C$BSUB 


THIS SUBTEST WRITES RAM WITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY 


MOV 
MOV 


BGNSEG 


ERRHRD 


ENDSEG 


INC 
CMP 
BNE 


DEC 


ERRHRD 


CLR 
MOVB 


PC ,SOF INIT 
20$ 


RO,R1 
ERRNO, SFIERR ,SFIMSG 


#177777,R2 
#2,R4 


R4, TSOBHC(RS) 
R2, TSDBL(RS) 
TSBALCRS),R1 
R1,R2 


30$ 
ERRNO, TSBAM2 ,EXPREC 


R4 

R4,#400 

25$ 

R4 
#000377,R2 
R1 

R4, TSDBHCRS) 
TSBALC(RS),R1 
R1,R2 


43$ 
ERRNO, TSBAM3 ,EXPREC 


R2 
R4, TSDBHCRS) 


sD0 INITIALIZE ON CONTROLLER 
3BR IF INIT WAS OK 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 


WORD 208 
WORD SFIERR 
WORD SFIMSG 


sSET DATA AT ALL ONES 
sSET RAM ADDRESS AT TWO 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>> >>> 
TRAP C$BSEG 

sLOAD ADDRESS INTO TSDB 

sLOADS DATA INTO RAM LOCATION 

sREADS WRAP DATA 

;DOES WRITTENCWRAP) = READ ? 

3BR IF OK, THEY ARE EQUAL 

;DATA NOT WRAPPED CORRECTLY 
TRAP CSERHRD 
-WORD 209 
-WORD TSBAM2 
«WORD EXPREC 


36606 K KKK END SEGMENT <ceeeceeeeeecce 
10000$: 
TRAP CSESEG 


sNEXT ADDRESS 
sEND OF RAM MEMORY CHECK 
;BR, MORE RAM TO GO 


sSET BACK TO 377 


sSET UP EXPECTED DATA REGISTER 
sCLEAN OUT REGISTER 

sSELECT ADDRESS IN RAM 

sPICK UP RAM CONTENTS 

sIS MEMORY STILL ALL ONES 

sBR, IF OK CALL ONES) 

sMEMORY CHANGED AFTER =< WRITE 


CSERHRD 
-WORD 210 
-WORD TSBAM3 
-WORD EXPREC 


sSET UP NEW EXPECTED 
sLOAD UP RAM ADDRESS POINTER 





a etm aR aN a a oe 


CZTKEBO TK25 FRT END FUNC #1 
TEST 2: RAM TEST 


4375 
4376 
4377 
4378 
4382 


4383 


4384 
4385 
4386 
4387 
4388 


4389 
4390 
4391 
4392 
4393 


4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 


024452 
024456 
024462 
024464 
024466 
024466 
024470 
024472 
024474 
024476 
024476 
024500 
024502 
024506 


024510 
024510 
024510 


024512 
024516 
024520 
024524 
024524 
024526 


024530 
024612 
024672 


024676 
024676 
024676 


116265 
116501 
120102 
001404 


104456 
00032: 
024530 
016170 


104406 
005304 
022704 
001341 


104403 


004737 
103002 
000137 


104432 
000150 


040 
127 
122 


104401 


177776 
177776 


000002 


017200 
023764 


127 
162 
141 





162 
151 
155 


45$: 


63$: 
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R2,TSDBLCRS) 
TSBALCRS),R1 

R1,R2 

45$ 

ERRNO, TSBAM2 ,EXPREC 


R4 
#2,R4 
40$ 


PC, TSTLOOP 
63$ 


T2LO0P 
TST 


3;* 
sLOCAL TEXT MESSAGES FOR TEST 


TSBAM2: 
TSBAM3: 
TST2IO: . 


-ASCIZ 
-ASCIZ 





SEQ 127 


sWRITE DATA INTO RAM 
sREAD RAM CONTENTS BACK 
sCHECK WITH DATA WRITTEN 
sBR IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 
TRAP CSERHRD 


-WORD 211 
-WORD TSBAM2 
-WORD EXPREC 


sSCOPE LOOP 


TRAP 
sDROP RAM ADDRESS POINTER 
sCHECK LOC TWO 
sBR, IF NOT AT LOC 2 YET 


sNANANNANAAAAN END SUBTEST \AAAAAAAAAAAA 
L10044; 
TRAP CSESUB 
;D0 WE NEED TO ITERATE TEST ? 
sBRANCH IF NOT 


sEXECUTE AGAIN 
sALL DONE THIS TEST 


CsCLP1 


TRAP CSEXIT 
-WORD L10041-. 


' Write to TSDB Not Equal to Read of TSBA Low Byte’ 
‘Write To RAM Location Modified Another Location’ 


L10041;: 
TRAP CSETST 
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TEST 3: COMMAND REJECT 


4404 -SBTTL TEST 3: COMMAND REJECT 

4405 

4406 

4407 3 THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 

4408 8 CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
4409 8 (NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR 

4410 ; REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
4411 : REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC 
4412 F COMMAND DECODING AND DATI DMA HANDLING. THIS TEST CONTAINS TWO 
4413 3 SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
4414 : THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
4415 3 CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
4416 : REJECTED COMMAND; SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
4417 F SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 

4418 ; INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. SUBTEST 1 
4419 F SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED 

4420 3 INTERRUPTS. THE COMMAND WORD IN THE COMMAND BUFFER IS 

4421 H INITIALIZED TO 100000 COCTAL) AND THE REMAINING THREE WORDS IN 
4422 ; THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
4423 F FOLLOWING SEQUENCE IS PERFORMED: 

4424 ; 

4425 F 

4426 3 1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR; 
4427 ; PROPER INITIAL CONDITIONS ARE VERIFIED. 

4428 F 

4429 3 2. TSOB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO 
a ; START PROCESSING. 

4431 ; 

4432 H 3. THE PROGRAM WAITS FOR SSR TO SET; IF SSR DOES NOT SET, 
cee = ; AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 
4434 F 

4435 ; 4. THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT IF 
4436 3 IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6 

roe dd 3 DEPENDS UPON THE STATE OF THE TAPE TRANSPORT). 

44 ; 

4439 3 5. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
4440 ; THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) 
4441 ; PLUS 10 COCTAL); I.€., TSBA SHOULD POINT TO THE WORD 
4442 ; JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COMMAND 
4443 ; PACKET WORDS ARE ALWAYS FETCHED). 

4444 F 

4445 3 6. USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS, THE 
4446 3 COMMAND IMAGE BLOCK IN THE CONTROLLER’S RAM (LOCATIONS 
4447 3 201-210 COCTAL)) ARE CHECKED; THE IMAGE SHOULD CONTAIN 
4448 3 A COPY OF THE FOUR COMMAND PACKET WORDS AS SET UP IN 
4449 8 CPU MEMORY. 

4450 3 

4451 ; 7. THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED 
4452 ; TO THE NEXT PATTERN NOT CONTAINING WRITE 

4453 3 CHARACTERISTICS OR IE. THE REMAINING THREE WORD OF THE 
4454 8 COMMAND BUFFER ARE SEQUENCED WITH PSEUDO-RANDOM DATA. 
4455 ; IF THE COMMAND WORD HAS NOT REACHED ITS MAXIMUM VALUE 
4456 3 (177777+1), THE TEST SEQUENCE IS REPEATED. 

4457 F 

4458 : 

4459 Fy 

4460 ° * Fy SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM 





POSSE 











CZTKEBO TK2S5 FRT END FUNC @1 


TEST 3 


: COMMAND REJECT 


005037 
012737 
005037 
012700 
004737 
012737 


104402 


012700 
104441 
012704 
012703 
012314 


104404 
004737 
103405 
010001 


104455 
000456 
025655 
011520 
004737 


104406 





000000 


025620 
002720 


016470 


002170 
002172 
017060 
000200 
177776 
016744 


017724 


002172 
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F CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
H VERIFIES THAT AN INTERRUPT OCCURS. 
H 
BGNTST Tr 
CLR FATFLG s;CLEAR FATAL ERROR FLAG 
002146 MOV GEPRT1,EPRTSW ;SET UP ERROR MESSAGE SWITCH 
CLR KTFLG sHOLD OFF KT1i1 
MOV #TST3ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
002164 reves MOV $2.,LOOPCNT sPERFORM 2 ITERATIONS 
BGNSUB TAAAAAAAAAAA = SUBTEST ///S///// 4407 
T3.1: 
TRAP CsBSuB 
SETPRI #PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP C$SPRI 
MOV @T3PACKET,R4 sGET THE ADDRESS OF COMMAND PACKET 
MOV @TSTBLK,R3 ;BLOCK OF TEST DATA 
5$: MOV CR3)+,(R4) sINSERT THE NEXT TEST DATA WORD 
BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>> >>> 
TRAP CS$BSEG 
JSR PC ,SOFINIT 300 SOFT INIT OF CONTROLLER 
BCS 10$ 3BR IF SOFT INIT = OK 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
WORD 301 
WORD SFIERR 
-WORD SFIMSG 
10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
JSR PC ,CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 
BIC @BIT7,(R4) sDISABLE INTERRUPTS 
MOV R4, TSDBCRS) sSET THE PACKET ADDRESS 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
6cS 15$ 3BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSP 
ERRDF ERRNO, T3SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 302 
-WORD T3SSR 
-WORD PKTSSR 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
ESCAPE SUB sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
-WORD L10046-. 
TST INTRECV ;DID AN INTERRUPT OCCUR ? 


BEQ 22$ sBRANCH IF NOT 
ERRHROD ERRNO, TSINT,PKTSSR 

TRAP CSERHRD 
-WORD 303 
«WORD T3INT 





= 










025072 
4511 025074 
4512 025100 
4513 025104 
4514 025110 
4515 025114 
4516 025116 
4517 025122 
4518 025124 
4522 025126 


4555 025250 


CZTKEBO TK25 FRT END FUNC @1 
TEST 3: COMMAND REJECT. 


025630 
011520 


104406 
004737 


026071 


017060 
177776 


010354 


177740 
000004 


000002 
003030 
024754 


002170 
017776 











































22%: 


25%: 


35%: 


40$: 


453: 
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JSR 
BCS 
ERRHRD 


09:48 PAGE 93-2 


@SC!NBA!SSR! TSREJ,R2 
PC ,CHKTSSR 
TSSRCRS),R1 

@OFL ,.R1 


30 
ERRNO, T3NBA,PKTSSR 


PC ,CHKTSSR 
TSBACRS),R1 
R4,R2 
R1,R2 


35$ 
ERRNO, T3TSBA,EXPREC 


PC ,CKRAM 
40$ 
ERRNO, PKTRAM,RAMERR 


CR3),RO 
#177740,R0 
4 


@2,.R3 
R3,@TBLEND 
50$ 

S$ 


FATFLG 
608 
PC .CKDROP 


.WORD 
sEXPECTED CONTENTS OF TSSR 


sWAIT FOR READY, NON-AMBIGUOUS 


sGET THE CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 


sSET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTED MATCH RECEIVED ? 
sDO0ES EXPECTED MATCH RECEIVED? 


sNBA NOT SET TO REJECT 


sLOOP ON ERROR ? 
TRAP 


sWAIT FOR READY, NON-AMBIGUOUS 


sGET TSBA REGISTER CONTENTS 
sSTART OF THE PACKET 

3 COMPARE yg A es RECEIVED 
sERROR IF NOT EQUA 

sPRINT THE ERROR e a 


sSEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 


sREPORT THE RAM ERROR(S) 


3646000 CKC KCC END SEGMENT Pee aecacacacad: 


100008: 


sPACKET COMMAND WORD 
sGET BITS 0-4 


TRAP 


sDON'T TEST WRITE CHARACTERISTICS 


sBRANCH IF OK 


sGET NEXT WORD FROM DATA TABLE 


sREACHED END OF TABLE ? 
sBRANCH IF END OF TABLE 
sCONTINUE TEST WITH NEW DATA 


s\ANANANAANANN END SUBTEST \ANAANAAAAAAN 


: 
TRAP 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 


PKTSSR 


CSERHRD 
304 
T3NBA 
PKTSSR 


CSsCLPi 


CSERHRD 
305 
T3TSBA 
EXPREC 


CSERHRD 


CSESEG 


CsEsuB 


= 





CZTKEBO TK25 FRT END FUNC @1 


TEST 3: COMMAND REJECT 


4557 


4558 
4559 


4560 
4561 
4562 
4563 


4564 
4565 
4569 
4570 


4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4582 


4583 
4584 


4585 


4586 
4587 
4591 


4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4603 


025254 


104402 


012700 
104441 
012704 
012703 
012314 


104404 
004737 
103405 
010001 


104455 
000463 
003550 
011506 
005037 
005037 
004737 
052714 


000000 


025620 
002720 


016470 


017724 


002172 


102206 
017060 
000000 
000100 


000100 
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60$: 


S$: 


10$: 


15$: 


22%: 


25%: 


BGNSUB 


SETPRI #PRIOO 


MOV @TS3PACKET ,R4 

MOV @TSTBLK,R3 

MOV (R3)+,(R4) 

BGNSEG 

JSR PC ,SOF INIT 

BCS 10$ 

MOV RO,R1 

ERRDF ERRNO, SFIERR,SFIMSG 
CLR FATFLG 

CLR INTRECV 

JSR PC ,CHKTSSR 

BIS @BIT7,(R4) 

MOV R4,TSDBCRS) 

JSR PC ,WAITF 

BCS i5$ 

MOV RO,R1 

ERRDF ERRNO, T3SSR,PKTSSR 
JSR PC ,FATCHK 

CKLOOP 

ESCAPE SUB 

TST INTRECV 

BNE 22$ 

ERRHRD ERRNO, T3NINT,PKTSSR 
MOV #SC!NBA!SSR!TSREJ,R2 
JSR PC ,.CHKTSSR 

MOV TSSRCRS),R1 

BIT #OFL ,R1 

BEQ 25$ 

BIS #OFL ,R2 

CMP R2,R1 

BEQ 0 





SEQ 131 


s//////////// BEGIN SUBTEST ///////////7/ 


oat 


TRAP 


sLOWER PRIORITY TO oman” ~ eae 
Vv 


TRAP 


C$BSUB 


#PRIOO ,RO 
C$SPRI 


sGET THE ADDRESS OF COMMAND PACKET 


sSTART OF TEST DATA 
sPLACE NEXT DATA WORD IN PACKET 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


TRAP 
3D0 SOFT INIT OF CONTROLLER 
;BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR a INIT 
A 


sCLEAR FATAL ERROR FLAG 
s;CLEAR INTERRUPT RECEIVED FLAG 
sWAIT FOR READY, NON-AMBIGUOUS 
sENABLE INTERRUPTS 

sSET THE PACKET ADDRESS 

s;WAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR deems SET 


. WORD 
INC AND CHECK FOR MORE THAN 25 
sLOOP ON ERROR, IF FLAG SET 


TRAP 
;BY-PASS SUBTEST IF FATAL ERROR 
TRAP 


- WORD 
s;DID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 

sREPORT ERROR IF NO are 


- WORD 
- WORD 
- WORD 
sEXPECTED CONTENTS OF TSSR 
sWAIT FOR READY, NON-AMBIGUOUS 
;GET THE CONTENTS OF TSSR 
:IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTED MATCH RECEIVED ? 
3;OKAY IF MATCH 
NBA NOT SET TO REJECT 


C$BSEG 


CSERDF 
307 

SFIERR 
SF IMSG 


PKTSSR 
ERRORS 


CSCLPL 


CSESCAPE 
L10047-. 


CSERHRD 
309 
T3NINT 
PKTSSR 


CSERHRD 
310 
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4646 025612 
4648 025620 
4649 025620 
4650 025622 
4651 025624 


025630 
011520 


104406 
004737 
016501 
010402 
020102 
001404 


104456 
000467 
026071 
016170 


004737 
103404 


104456 
000470 
004643 
016204 


104405 
011300 
042700 
020027 
001002 
062703 
020327 
103002 
000137 


104403 
005737 
001402 
004737 
004737 
103062 
000137 


104432 
000352 


000000 
052525 
125252 





017060 
177776 


010354 


177740 
000004 


000002 
003030 


025274 


002170 


017776 
017200 


024734 
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30$: CKLOOP 


358: JSR 
BCS 
ERRHRD 


40$: ENDSEG 


MOV 


BIC 


45$: CMP 


50$: ENDSUB 


60$: JSR 


62$: EXIT 
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PC ,CHKTSSR 
TSBACRS) /RA 

R1.R2 

35$ 

ERRNO, T3TSBA,EXPREC 


PC ,CKRAM 
40$ 
ERRNO, PKTRAM,RAMERR 


(R3),RO 
#177740,R0 
RO, #4 

4S$ 

#2,R3 
R3,#TBLEND 
50$ 


S$ 


FATFLG 

60$ 

PC ,CKDROP 
PC, TSTLOOP 


;LOCAL STORAGE FOR THIS TEST 


-BLK 
T3PACKET: 

- WORD 

- WORD 

. WORD 


10-<. - TUV2AE7> 


0 
052525 
125252 


-WORD T3NBA 

-WORD  PKTSSR 
sLOOP ON ERROR ? 

TRAP CSCLP1 


sWAIT FOR READY, NON-AMBIGUOUS 
sGET TSBA REGISTER CONTENTS 
sSTART OF THE PACKET 

sCOMPARE EXPECTED TO RECEIVED 
sERROR IF NOT EQUAL 

sPRINT THE ERROR €& — 


CSERHRD 
-WORD 311 
-WORD T3TSBA 
-WORD EXPREC 


sSEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 

TRAP CSERHRD 


-WORD 312 
«WORD PKTRAM 
-WORD RAMERR 


366600000 00"e" END SEGMENT <eeeeeeeeeeee 


10000$: 
TRAP CSESEG 

sNEXT PACKET COMMAND WORD 
sGET BITS 0-4 
sDON’'T TEST WRITE CHARACTERISTICS 
sBRANCH IF NOT WRITE CHARACTERISTICS 
sBY-PASS WRITE CHARACTERISTCS 
sHAVE WE COMPLETED DATA TABLE ? 
sBRANCH IF ALL TESTED 
sTEST WITH NEXT DATA 


sNNANANNANNAAN END SUBTEST \ANAAAAAVAAAA 
L10047; 
TRAP CSsESUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 
sSHOULD WE DO ITERATIONS ? 
sBRANCH IF NOT 
sLOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST 


TRAP CSEXxIT 
L10045-. 


«WORD 


sCOMMAND PACKET FOR TEST 
sWILL CONTAIN VARIABLE COMMANDS 






SEQ 132 





- rr 
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4652 025626 052525 -WORD 052525 
4653 





3* 
4656 sLOCAL TEXT MESSAGES FOR TEST 
4657 s° 


4659 025630 103 157. 155 T3NBA: .ASCIZ ‘Command Not Re jected’ 
4660 025655 103 157 156 T3SSR: .ASCIZ ‘Contents of TSSR Incorrect After Write Packet’ 


4661 025733 125 156 145 T3INT: .ASCIZ ‘Unexpected Interrupt Received On Write Packet’ 
4662 02601: 105 170 160 T3NINT: .ASCIZ ‘Expected Interrupt Not Received On Write Packet’ 
4663 026071 111 156 143 T3TSBA: .ASCIZ ‘incorrect TSBA Address After Packet Write’ 
4664 026143 103 157 155 TST3ID: .ASCIZ ‘Command Reject’ 
4665 -EVEN 
4666 026162 ENDTST 

026162 L10045: 


026162 104401 TRAP CSETST 





eS 
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TEST 3: COMMAND REJECT 

4668 

4669 -SBTTL TEST 4: WRITE CHARACTERISTICS 

4670 

4671 

4672 8 THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 

4673 3 COMMAND. IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 

4674 PF DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 

4675 3 ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER 

4676 3 MESSAGE PACKET IS STORED, WHERE APPROPRIATE. THIS TEST DOES NOT 

4677 3 CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 

4678 3 DATA BITS OPERATE PROPERLY; THE FUNCTIONING OF THESE BITS IS 

4679 ; VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 

4680 3 TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO 

4681 3 INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM RUNS AT 

4682 : PROCESSOR PRIORITY 0, WITH THE INTERRUPT SERVICE ROUTINE SET UP 

4683 3 TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, A 

4684 3 PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN 

4685 3 THE ROM OR PIPELINE. 

4686 3 

4687 $ THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES, COMMAND 

4688 3 DECODING, DMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING. THIS 

4689 3 IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE 

4690 3 MESSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE 

4691 3 TEST (I.E, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 

ote | 3 THE TRANSPORT BUS) DEFINITELY INDICATE A BAD CONTROLLER MODULE. 

469 H 

4694 : 

4695 ’ 

4696 026164 BGNTST 
026164 T4:: 

4697 026164 005037 002170 CLR FATFLG ;CLEAR FATAL ERROR FLAG 

4698 026170 012737 005672 002146 MOV #EPRT1,EPRTSW ;SET UP ERROR MESSAGE SWITCH 

4699 026176 005037 003100 CLR KTFLG sHOLD OFF KT1i1 

4704 026202 012700 030117 MOV #TST4ID,RO sASCII MESSAGE TO IDENTIFY TEST 

4705 026206 004737 017232 JSR PC, TSTSETUP ;D0 INITIAL TEST SETUP 

4706 026212 012737 000002 002164 MOV #2. ,LOOPCNT sPERFORM 2 ITERATIONS 

4707 026220 T4LOOP: 

4708 026220 GNSUB 3//////////// BEGIN SUBTEST ///////////7/ 
026220 T4.1: 
026220 104402 TRAP C$BSUB 

4709 026222 004737 030146 JSR PC, T4REST ;SET PACKET TO START-UP VALUES 

4710 

4711 026226 SETPRI #PRIOO ;LOWER PRIORITY TO ALLOW INTERRUPTS 
026226 012700 000000 MOV #PRIOO,RO 
026232 104441 TRAP C$SPRI 

4712 026234 012703 002732 MOV #TSTBLK+10. ,R3 sSTART OF TEST DATA 

4713 026240 012704 027250 MOV #T4PACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 

4714 026244 012764 000010 000006 MOV #8. ,PKBCNTC(R4) sSTART WITH MINIMUM ALLOWABLE VALUE 

4715 026252 5$: 

4716 026252 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

we 026252 104404 TRAP C$BSEG 

471 

4718 026254 004737 016470 JSR PC ,SOFINIT ;D0 SOFT INIT OF CONTROLLER 

4719 026260 103405 BCS 10$ ;BR IF SOFT INIT = OK 

4723 026262 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

4724 026264 ERRDF  ERRNO,SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
026264 104455 TRAP CSERDF 
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4725 
4726 
4727 
4728 
4729 
4730 
4734 


4735 
4736 


4737 


4738 
4739 
4743 


4744 
4745 
4746 
4747 
4748 
4749 
4750 
4754 


4755 


4756 
4757 
4758 
4759 
4760 
4764 


4765 
4766 
4767 
4768 
4772 


026266 
026270 
026272 
026274 
026300 
026304 
026310 
026314 
026316 
026320 
026320 
026322 
026324 
026326 
026330 
026334 
026334 
026336 
026336 
026340 
026342 
026346 
026350 
026350 
026352 
026354 
026356 
026360 
026364 
026370 
026374 
026376 
026402 
026404 
026406 
026406 
026410 
026412 
026414 
026416 
026416 
026420 
026424 
026430 
026434 
026436 
026440 
026440 
026442 
026444 
026446 


026450 
026454 
026456 
026456 


000621 
003550 
011506 
005037 
005037 
010465 
004737 
103407 
010001 


104455 
000622 
027656 
011520 
004737 


104406 


104410 
000126 
005737 
001404 


104456 
000623 
027745 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001404 


104456 
000624 
027406 
011520 


104406 
004737 
016501 
012702 
020102 
001404 


104456 
000625 
030034 
016170 


004737 
103404 


104456 





002170 
002172 
177776 
017060 


017724 


002172 


000000 
000200 
000100 


000100 


017060 
177776 
027250 


010354 





10$: 


15$: 


22$: 


25$: 


30$: 


35%: 





JSR 
CKLOOP 


ESCAPE 


TST 
BEQ 
ERRHRD 


MOV 
MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRD 


CKLOOP 


JSR 
MOV 
MOV 
CMP 
BEQ 
ERRHRD 


JSR 
BCS 
ERRHRD 
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FATFLG 
INTRECV 
R4,TSDBCRS) 
PC ,CHKTSSR 
15$ 


RO,R1 
ERRNO, T4SSR,PKTSSR 


PC ,FATCHK 
SEG 


INTRECV 
22$ 
ERRNO, T4INT,PKTSSR 


TSSRCRS),R1 


ERRNO, T4NBA,PKTSSR 


PC ,CHKTSSR 
TSBACRS),R1 
#T4PACKET,R2 
R1,R2 


35$ 
ERRNO, T4TSBA,EXPREC 


PC ,CKRAM 
40$ 
ERRNO, PKTRAM,RAMERR 


sCLEAR FATAL ERROR FLAG 
sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR ree SET 


“WORD 


;INC AND CHECK FOR MORE THAN 25 


sLOOP ON ERROR, IF FLAG SET 
TRAP 


sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 


- WORD 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF NOT 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 


sDOES EXPECTED MATCH RECEIVED ? 


sOKAY IF MATCH 
NBA NOT ZERO 
TRAP 
- WORD 
- WORD 
«WORD 
LOOP ON ERROR ? 
TRAP 


sWAIT FOR READY, NON-AMBIGUOUS 
;GET TSBA REGISTER CONTENTS 
sSTART OF THE BUFFER 

sCOMPARE EXPECTED TO RECEIVED 
sERROR IF NOT EQUAL 

sPRINT THE ERROR & seated > 


- WORD 


«WORD 
- WORD 


sSEE IF DATA IN RAM IS CORRECT 


sBRANCH IF PACKET IN RAM IS CORRECT 


sREPORT THE RAM ERROR(S) 
TRAP 


SEQ 135 


401 
SFIERR 
SF IMSG 


CSEROF 
402 
T4SSR 
PKTSSR 
ERRORS 


C$CLP1 


CSESCAPE 
10000$-. 


CS$ERHRD 
403 
T4INT 
PKTSSR 


CSERHRD 
404 
T4NBA 
PKTSSR 


CSCLP1 


CSERHRD 
405 
T4TSBA 
EXPREC 


CSERHRD 





CZTKEBO TK25 FRT END FUNC @1 
TEST 4: WRITE CHARACTERISTICS 


4773 
4774 


4775 
4776 
4777 
4778 
4779 
4780 
4781 


4782 
4783 
4784 
4785 
4786 


026502 


026506 
026506 
026506 


026510 
026514 
026516 
026522 





000626 
004643 
016204 


104405 


012364 
020327 
103002 
000137 


104403 


005737 
001402 
004737 





000006 
003030 


026252 


002170 
017776 
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40$: 


555: 


60$: 


ENDSEG 


-WORD 406 
-WORD PKTRAM 
-WORD RAMERR 


3644000000000 END SEGMENT <<eeeeeeeeeee 


10000$: 
TRAP CSESEG 


(R3)+,PKBCNTCR4) ;SET THE TEST WORD 
R3,#TBLEND sHAS ALL DATA BEEN TESTED ? 
55$ sBRANCH IF ALL DATA DONE 
5$ sBRANCH TILL BACK TO ZERO 
sNANNNANANNANN END SUBTEST \A\NAAANANAAAN 
L10051: 
TRAP CSESUB 
FATFLG sANY FATAL ERRORS ? 
60$ sBRANCH IF NOT 
PC ,CKDROP sTRY TO DROP THE UNIT 
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4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
47% 
4797 


4833 


026522 
026522 
026522 


026524 
026524 
026530 
026532 
026536 
026542 


026546 
026546 


026550 
026554 
026556 
026560 
026560 
026562 
026564 
026566 
026570 
026574 
026576 
026600 
026604 
026610 
026614 
026616 
026620 
026620 
026622 
026624 
026626 
026630 
026630 
026632 
026632 
026634 
025636 
026642 
026644 
026644 
026646 
026650 
026652 
026654 


104402 


012700 
104441 
012703 
012704 
004737 


104404 


004737 
103405 
010001 


104455 
000627 
003550 
011506 
005037 
010400 
061300 
056310 
010465 
004737 
103405 
010001 


104455 
000630 
027656 
011520 


104406 


104410 
000116 
005737 
001404 


104456 
000631 
027745 
011520 
016501 





000000 


027314 
027250 
030146 


016470 


002172 


000002 


177776 


016744 


002172 


000000 


MACRO M1200 07-JUN-84 09:48 PAGE 96 


3* 


; 
sTEST 4, SUBTEST 2 


i: 
sCHECK THAT UNUSED BITS BEING SET CAUSES 
sWRITE CHARACTERISTICS COMMAND TO BE REJECTED 


10$: 


15$: 


22$: 


BGNSUB 


SETPRI #PRIOO 


MOV #T42DATA,R3 
MOV #T4PACKET ,R4 
JSR PC, T4REST 
BGNSEG 


JSR PC ,SOFINIT 
10$ 


BCS 

MOV RO,R1 

ERRDF ERRNO, SFIERR,SFIMSG 
CLR INTRECV 

MOV R4,RO 

ADD (R3),RO 

BIS 2(R3), (RO) 

MOV R4,TSDBCRS) 

JSR PC ,WAITF 

BCS 15$ 

MOV RO,R1 

ERRDF ERRNO, T4SSR,PKTSSR 
CKLOOP 

ESCAPE SEG 


TST INTRECV 


BEQ 22$ 
ERRHRD ERRNO, T4INT,PKTSSR 
MOV TSSRCRS),R1 


SEQ 137 


sAASIASAISSS —— VASAT SS SS 


TRAP C$BSUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV #PRIOO ,RO 

TRAP C$SPRI 


sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CS$BSEG 


sD0 SOFT INIT OF CONTROLLER 
3BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 


-WORD 407 
-WORD SFIERR 
SF IMSG 


- WORD 
sCLEAR INTERRUPT RECEIVED FLAG 
sSTART OF THE COMMAND PACKET 
sOFFSET TO THE DATA WORD TO TEST 
sSET THE DATA BITS TO BE TESTED 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
3BR IF CARRY SET (GOUD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR re 


CSERDF 
-WORD 408 
-WORD T4SSR 
-WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
sBY-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
-WORD 10000$-. 
s:DID AN INTERRUPT OCCUR ? 
sBRANCH IF NOT 
TRAP CSERHRD 
-WORD 409 
-WORD  T4INT 
-WORD PKTSSR 


sGET THE CONTENTS OF TSSR 
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4834 026660 012702 102206 “OV #SC!SSR! TSREJ!NBA,R2 sEXPECTED CONTENTS OF TSSR 

4835 026664 032701 000100 LIT #OFL,R1 sIS OFF-LINE BIT SET ? 

4836 026670 001402 BEQ 25$ sBRANCH IF NOT OFF-LINE 

4837 026672 052702 000100 BIS #OFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

4838 026676 020201 25$: CMP R2,R1 sDOES EXPECTED MATCH RECEIVED ? 

4839 026700 001414 BEQ 30$ sOKAY IF MATCH 

4840 026702 010100 MOV R1,R0 sDATA FROM TSSR 

4841 026704 XOR R2,RO sFIND BITS IN ERROR 

4842 026714 020027 002000 CMP RO, #NBA sIS NBA ONLY BIT IN ERROR ? 

4843 026720 001404 BEQ 30$ sDON’‘T PRINT ERRUR IF NBA ONLY BAD BIT 

4847 026722 ERRHRD ERRNO, T42REJ,PKTSSR sCOMMAND NOT REJECTED 
026722 104456 TRAP CSERHRD 
026724 000632 -WORD 410 
026726 027461 -WORD T42REJ 
026730 011520 -WORD PKTSSR 

4848 026732 30$: CKLOOP sLOOP ON ERROR ? 
026732 104406 TRAP CSCLP1 

4849 026734 032701 002000 BIT @NBA ,R1 ;IS NBA BIT SET ? 

4850 026740 001004 BNE 35$ s;OKAY IF NBA SET 





4854 026742 ERRHRD ERRNO, T42NBA,PKTSSR sNBA NOT SET 
026742 104456 TRAP CSERHRD 
026744 000633 .-WORD 411 
026746 027330 . .- WORD T42NBA 
026750 011520 - WORD PKTSSR 

4855 026752 35$: 

4856 026752 ENDSEG 3646660000000 END SEGMENT <eeeeeeeeeece 
026752 10000$: 

oust 026752 104405 TRAP CSESEG 

4858 026754 062703 000004 ADD #4 ,,R3 sPOINT TO NEXT DATA PAIR 

4859 026760 020327 027330 CMP R3,#T42D0NE sCOMPARE TO END OF TEST DATA 

4860 026764 103002 BHIS 57$ sBRANCH IF ALL DATA TESTED 

4861 026766 000137 026536 JMP 5$ ;BRANCH TILL BACK TO ZERO 

4862 

4863 026772 57$: ENDSUB eN\ANANANANANNN END SUBTEST \AA\AAANAAAAAAY 
026772 L1i0052: 
026772 104403 TRAP CSsESUB 
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4875 026774 
026774 
026774 


4877 026776 
026776 
027002 

4878 027004 

4879 027010 

4880 027014 


4883 027020 
4884 027024 
4888 027026 
4889 027030 
027030 
027032 
027034 
027036 
4890 027040 
4891 027044 
4892 027052 
4893 027056 
4894 027062 
4895 027064 
4899 027066 
027066 
027070 
027072 
027074 
4900 027076 
027076 
4901 027100 
027100 
027102 
4902 027104 
4903 027110 
4907 027112 
027112 
027114 
027116 
027120 
4908 027122 
4909 027126 
4910 027132 
4911 027136 





027656 
011520 


104406 


104410 
000116 
005737 
001404 


104456 
000636 
027745 
011520 
016501 
012702 
032701 
001402 


000000 


027314 
027250 
030146 


016470 


002172 
000001 
177776 
016744 


002172 


000000 
102206 
000100 
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027260 


3* 


; 
sTEST 4, SUBTEST 3 





SEQ 139 


: 
;SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 


BGNSUB 


SETPRI #PRIOO 


MOV #T42DATA,R3 
S$: MOV #T4PACKET,R4 
JSR PC, T4REST 


JSR PC ,SOFINIT 
10$ 


RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 


10$: CLR INTRECV 
BIS #1,T4DATA 
MOV R4, TSDBCRS) 
JSR PC ,WAITF 
BCS 15$ 


RO,R1 
ERRDF ERRNO, T4SSR,PKTSSR 


15$: CKLOOP 
ESCAPE SUB 


TST INTRECV 
BEQ 22$ 
ERRHRD ERRNO, T4INT,PKTSSR 


22$: MOV TSSRCRS),R1 
MOV #SC!SSR! TSREJ!NBA,R2 
BIT #OFL,R1 
BEQ 25$ 


34//////1///// BEGIN SUBTEST ///////4///// 
74.3: 
TRAP C$BSUB 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV #PRIOO ,RO 
TRAP C$SPRI 

sSTART OF TEST DATA FOR SUBTEST 

sGET THE ADDRESS OF COMMAND PACKET 

sRESTORE PACKET TO STARTING VALUES 


sD0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR — 


CSERDF 
-WORD 412 
-WORD SFIERR 
-WORD  SFIMSG 
sCLEAR INTERRUPT RECEIVED FLAG 
sMAKE ADDRESS ODD 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
#BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 413 
-WORD T4SSR 
-WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
L10053-. 


. WORD 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF NOT 


TRAP CSERHRD 
-WORD 414 
«WORD T4INT 


-WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 





CZTKEBO TK25 FRT END FUNC @1 





TEST 4: WRITE CHARACTERISTICS 


4912 027140 
4913 027144 
4914 027146 
4915 027150 
4916 027152 
4917 027162 
4918 027166 
4922 027170 
027170 
027172 
027174 
027176 
4923 027200 
027200 
4924 027202 
4925 027206 
4929 027210 
027210 
027212 
027214 
027216 


4931 027220 
027220 
027220 


4933 027222 
4934 027226 
4935 027230 
4936 027234 
4937 027234 

027234 

027236 


4944 027240 
4946 027250 
4947 027250 
4948 027252 
4949 027254 
4950 027256 


4952 027260 
4953 027260 
4954 027262 
4955 027264 
4956 027266 
4957 027270 


4959 027270 
4960 027274 


052702 
020201 
001414 
010100 


020027 
001404 


104456 
000637 
027560 
011520 


104406 
032701 
001004 


104456 
000640 
027330 
011520 


104403 


005737 
001402 
004737 


104432 
000756 


027274 
000000 





000100 


002000 


002000 


002170 
017776 


000000 
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25$: 


30$: 


35$: 


60$: 





CKLOOP 
BIT 


BNE 
ERRHRD 


ENDSUB 


TST 
BEQ 
JSR 


EXIT 


09:48 PAGE 97-1 


30$ 
ERRNO, T44REJ,PKTSSR 


#NBA ,R1 
35$ 
ERRNO, T42NBA,PKTSSR 


FATFLG 
60$ 
PC ,CKDROP 


TST 


3* 
sLOCAL STORAGE FOR THIS TEST 


T4PACKET: 


T4DATA: 


BLKB 


10-< ,-TUV2AE7> 


100004 
T4DATA 





sSET OFF-LINE IN EXPECTED DATA 

sDOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

sDATA FROM TSSR 

sFIND BITS IN ERROR 

sIS NBA ONLY BIT IN ERROR ? 

sDON‘T PRINT ERROR IF NBA ONLY BAD BIT 


sCOMMAND NOT REJECTED 
TRAP CSERHRD 


-WORD 415 
-WORD T44REJ 
-WORD PKTSSR 


sLOOP ON ERROR ? 


:IS NBA BIT SET ? 
sOKAY IF NBA SET 
sNBA NOT SET 


TRAP CsCLPi 


TRAP CSERHRD 


-WORD 416 
-WORD T42NBA 
-WORD PKTSSR 


s\\NAANNANANNN END SUBTEST \ANANAAAAAAAN 
L10053: 
TRAP —- CSESUB 
;ANY FATAL ERRORS ? 
;BRANCH IF NOT 
;TRY TO DROP THE UNIT 
;ALL DONE THIS TEST 


TRAP CSEXxIT 
-WORD L10050-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


3 SPACE 
sMESSAGE BUFFER 





SS 
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TEST 4: WRITE CHARACTERISTICS 


4964 ;TEST DATA FOR SUBTEST Two 
4966 ;DATA HAS FORMAT: 


1ST WORD OFFSET TO TEST WORD IN PACKET 
2ND WORD BITS TO SET FOR TEST 





F 

3 
4970 ; 

= 


4973 027314 T42DATA: 
4974 027314 000000 037140 -WORD 0,B1TS!61IT6!BIT9!BIT10!B1T11!B1T12!BIT13 
4975 027320 000002 000001 -WORD 2,BITO 

4976 027324 000004 100100 -WORD 4,BIT6!BIT15 
4977 027330 T42D0NE=. 


i* . 
4981 sLOCAL TEXT MESSAGES FOR TEST ‘ 
4982 a 


4984 027330 116 102 101 T42NBA: .ASCIZ ‘NBA Not Set On et na WRITE CHARACTERISTICS’ 
4985 027406 127 122 111 T4NBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 

4986 027461 127 122 111 T42REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields’ 
4987 027560 127 122 111 T44REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not " y- With Invalid Block Address’ 
4988 027656 103 157 156 T4SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 

4989 027745 125 156 145 T4INT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 

4990 030034 111 156 143 T4TSBA: .ASCIZ ‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 

4991 030117 127 162 151 TST4ID: — ‘Write Characteristics’ 
4992 . 











ea 
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TEST 4: WRITE CHARACTERISTICS ; 
4995 
4996 3° 
4997 3 
soon sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
3 
5000 8° 
5001 
5002 030146 T4REST: 
5003 030146 SAVREG ;SAVE THE REGISTERS 
5004 030152 012701 027250 MOV #T4PACKET,R1 sSTART OF THE PACKET 
5005 030156 012721 100004 MOV #100004, (R1)+ sWRITE CHARACTERISTICS WITH ACK 
5006 030162 012721 027260 MOV @T4DATA,(R1)+ sADDRESS OF CHAR DATA BLOCK 
5007 030166 005021 CLR (R1)+ sEXTENDED ADDRESS 
5008 030170 012721 000010 MOV #8.,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
5009 030174 012721 027274 MOV #T4BFR,CR1)+ sADDRESS OF MESSAGE BUFFER 
5010 030200 005021 CLR (R1)-+ 
5011 030202 012721 000020 MOV #16. ,CR1)+ ;LENGTH OF MESSAGE BUFFER 
5012 030206 005021 CLR CR1)+ 
5013 030210 005011 CLR (R1) 
5014 030212 000207 RTS PC sRETURN 
5015 030214 ENDTST 
030214 L10050: 
030214 104401 CSETST 
5016 





wer 





re 
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TEST 


aris 


06 
5075 030310 
5C76 030314 


S: VOLUME CHECK 


005037 
012737 
005037 
012700 
004737 
012737 


040000 
177776 
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002146 


002164 


000006 


TSLOOP : 


53: 


108: 


-SBTTL TEST 5S: VOLUME CHECK 


THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 


SEQ 143 


WITHIN THE CONTROLLER AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 


CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
CvC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
TEST; THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 


THE TEST PROCEEDS AS FOLLOWS: 


1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 


2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC=0) 
AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED; 
THE VCK BIT SHOULD BE CLEAR (0). 


3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0). 


4. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC=1 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD BE CLEAR (0). 


5. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC=0 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD REMAIN CLEAR (0). 


BGNTST 


TS:: 
CLR FATFLG s;CLEAR FATAL ERROR FLAG 
MOV %EPRT1,EPRTSW sSET UP ERROR MESSAGE SWITCH 
CLR KTFLG sHOLD OFF KTi1 
MOV @TSTSID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 
MOV @2.,LOOPCNT sPERFORM 2 ITERATIONS 


MOV @TSPACKET ,R4 
MOV @TSBFR ,R2 
MOV #052525, XSTOCR2) 


sADDRESS OF THE MESSAGE BUFFER 
sSET XSTATO TO KNOWN VALUE 


JSR PC ,SOF INIT sD0 SOFT INIT OF CONTROLLER 
BCS 108 sBR IF SOFT INIT = OK 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR wae es 
- WORD 
. WORD 
- WORD 


BIC @BIT14,(R4) 
MOV R4, TSOBCRS) 


sCLEAR THE CVC BIT 


sPACKET FOR WRITE CHARACTERISTICS 


CSEROF 
501 

SFIERR 
SF IMSG 


sSET THE PACKET ADDRESS FOR WRITE CHAR 





po 
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TEST S: VOLUME CHECK 


$077 
$078 
5079 
5083 


ae 


030320 
030324 
030326 
030330 
030330 
030332 
030334 
030336 
030340 
030340 
030342 
030342 
030344 
030346 
030352 
030356 
030360 
030364 
030364 
030366 
030370 
030372 
030374 
020402 
030404 
030410 
030410 
030412 
030414 
030416 
030420 
030420 
030422 
030426 
030432 
030434 
030436 
030436 
030440 
030442 
030444 
030446 
030446 
030450 
030450 
030452 
030454 
030460 
030462 
030466 
030466 
030470 
039472 
030474 
030476 
030476 
039500 


004737 
103405 
010001 


104455 
000766 
031221 
011520 


104406 


104410 
001060 
016203 
020327 
001006 
016501 


104456 
000767 
031310 
011520 
032762 
001006 
016501 


104456 
000770 
031055 
011574 


104406 
010465 
004737 
103405 
010001 


104455 
000771 
031221 
011520 


104406 


104410 
000752 
026203 
001406 
016501 


104456 
000772 
031131 
011574 


104406 
032762 








JSR 
BCS 


MOV 
ERROF 


017060 


15$: CKLOOP 


ESCAPE 
000006 
052525 
000000 


000020 
000000 


000606 20%: BIT 


BNE 
MOV 
ERRHRD 


23%: 


177776 
017060 


CKLOOP 
ESCAPE 


258: 


000006 
000000 


CMP 
BEQ 


MOV 
ERRHRD 


CKLOOP 
BIT 


273: 
000020 000006 303: 


NN A 
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PC ,CHKTSSR 
15$ 

RO,R1 

ERRNO, TSSSR,PKTSSR 


TST 


XSTOCR2),R3 
R3,#052525 

208 

TSSRCRS),R1 

ERRNO, TSNMSG ,PKTSSR 


#XSOVCK, XSTOCR2) 
23% 


TSSRCRS),R1 
ERRNO, TSVCK2 ,PKTMES 


R4,TSOBCRS) 

PC ,CHKTSSR 

25% 

RO,R1 

ERRNO, TSSSR,PKTSSR 


TST 
XSTOCR2) ,R3 
27$ 


TSSRCRS),R1 
ERRNO, TSNVCK ,PKTMES 


#XSOVCK, XSTO(R2) 


sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR —— 


CSEROF 

-WORD 502 

-WORD TSSSR 

-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 
sEXIT IF FATAL ERROR 

TRAP CSESCAPE 

-WORD L10054-. 


sSTORE STATUS FOR A WHILE 

sCHECK FOR XSTATO OVER WRITTEN (GOOD!) 
sBR, IF XSTATO HAS BEEN UPDATED 

sPICK UP TSSR FOR ERROR PRINTOUT 

3“NO MESSAGE PACKET RETURNED” 


TRAP CSERHRD 
-WORD 503 
-WORD TSNMSG 
-WORD PKTSSR 


sIS VOLUME CHECK CLEAR IN XSTO ? 
sOKAY IF VOLUME CHECK IS CLEARED 
sCONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT SET 


TRAP CSERHRD 

-WORD 504 

-WORD TSVCK2 

-WORD  PKTMES 
sLOOP ON ERROR ? 

TRAP CSCLP1 


sSET THE PACKET ADDRESS FOR WRITE CHAR 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


-WORD 505 

-WORD TSSSR 

-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 

RAP CSCLP1 
sEXIT IF FATAL ERROR 

TRAP CSESCAPE 


-WORD 1L10054-. 
sTHE XSTO SHOULD NOT HAVE CHANGED 
sOKAY IF VOLUME CHECK IS SET 
sCONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT SET 


TRAP CSERHRD 
-WORD 506 
-WORD TSNVCK 
-WORD PKTMES 
sLOOP ON ERROR ? 
CSCLP1 


TRAP 
sIS VOLUME CHECK SET IN XSTO ? 








rr a 
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TEST S: VOLUME CHECK 
5121 030506 001006 BNE 333 sOKAY IF VOLUME CHECK IS SET 
5125 030510 016501 000000 MOV TSSRCRS),R1 sCONTENTS OF TSSR FOR ERROR REPORT 
5126 030514 ERRHRD ERRNO, TSVCK2,PKTMES sVOLUME CHECK NOT SET 
030514 104456 TRAP CSERHRD 
030516 000773 -WORD 507 
030520 031055 -WORD TSVCK2 
030522 011574 -WORD PKTMES 
5127 030524 33$: CKLOOP sLOOP ON ERROR ? 
030524 104406 TRAP CSCLP1 
5128 030526 052714 040000 BIS #BIT14,(R4) sSET THE CVC BIT 
5129 030532 010465 177776 MOV R4,TSOBCRS) sSET THE PACKET ADDRESS FOR WRITE CHAR 
5130 030536 004737 017060 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
5131 030542 103405 BCS 35$ sBR IF CARRY SET (GOOD RETURN) 
5132 030544 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5136 030546 ERRDF ERRNO, TSSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
030546 104455 TRAP CSERDOF 
030550 000774 -WORD 508 
030552 031221 -WORD TSSSR 
030554 011520 -WORD PKTSSR 
5137 030556 35$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
030556 104406 TRAP CSCLP1 
5138 030560 ESCAPE TST sEXIT IF FATAL ERROR 
030560 104410 TRAP CSESCAPE 
020562 000642 -WORD L10054-. 
5139 030564 032762 000020 000006 BIT @XxSOVCK, XSTOC(R2) sIS VOLUME CHECK CLEAR IN XSTO ? 
3140 030572 001406 BEQ 40$ sOKAY IF VOLUME CHECK IS CLEARED 
5144 030574 016501 000000 MOV TSSRCR5),R1 sCONTENTS OF TSSR FOR ERROR REPORT 
5145 030600 ERRHRD ERRNO, TSVCK,PKTMES sVOLUME CHECK NOT CLEARED 
030600 104456 TRAP CSERHRD 
030602 900775 -WORD 509 
030604 030762 -WORD  TSVCK 
030606 011574 -WORD PKTMES 
5146 030610 40$: CKLOOP LOOP ON ERROR ? 
030610 104406 TRAP CSCLP1 
5147 030612 042714 040000 BIC #B1IT14,(R4) sCLEAR THE CVC BIT 
5148 030616 010465 177776 MOV R4, TSOBCRS) sSET THE PACKET ADDRESS FOR WRITE CHAR 
5149 030622 004737 017060 JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
5150 030626 103405 BCS 45$ sBR IF CARRY SET (GOOD RETURN) 
5151 030630 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5155 030632 ERROF ERRNO, TSSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
030632 104455 TRAP CSEROF 
030634 000776 -WORD 510 
030636 031221 -WORD TS5SSSR 
030640 011520 -WORD PKTSSR 
5156 030642 45$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
030642 104406 TRAP CSCLP1 
5157 030644 ESCAPE TST sEXIT IF FATAL ERROR 
030644 104410 TRAP CSESCAPE 
030646 000556 -WORD L10054-. 
5158 030650 032762 000020 000006 BIT @XSOVCK, XSTOCR2) sIS VOLUME CHECK CLEAR IN XSTO ? 
5159 030656 001406 BEQ 50$ sOKAY IF VOLUME CHECK IS CLEARED 
5163 030660 016501 000000 MOV TSSRCRS),R1 sCONTENTS OF TSSR FOR ERROR REPORT 
5164 030664 ERRHRD ERRNO, TSNVCK ,PKTMES sVOLUME CHECK NOT CLEARED 
030664 104456 TRAP CSERHRD 
030666 000777 -WORD 511 
030670 031131 -WORD  TSNVCK 
039672 011574 -WORD PKTMES 











CZTKEBO TK25 FRT END 
TEST S: VOLUME CHEC 


5165 030674 
030674 

5166 030676 

5167 030702 

5168 030704 

5169 030710 
030710 
030712 

5170 

S171 

$172 

$173 

5174 

5176 030714 

5178 030720 

5179 030720 

5i80 030722 

5181 030724 

5182 030726 

5183 

5184 030730 

5185 030730 

5186 030732 

5187 020734 

5188 030736 


5190 030742 


5197 030762 
5198 031055 
5199 031131 
5200 031221 
5201 031310 
5202 031407 


5204 031424 
031424 
031424 





FUNC @1 
K 
104406 
004737 017200 
103002 
000137 030252 
104432 
000512 
100004 
030730 
000000 
000010 
030742 
000000 
000020 
000000 000000 
126 103 
126 103 
126 103 
103 157 
116 157 
126 157 
104401 
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113 
113 
113 
156 
040 
154 





50$: CKLOOP 


60$: JSR 
Bcc 
JMP 
62$: EXIT 





PC, TSTLOOP 
62$ 


TSLOOP 
TST 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


-B 
TSPACKET: 
TSDATA: 


TSBFR: .BLKW 


10-< . - TUV2AE7> 


100004 
TSDATA 


10 


;LOCAL TEXT MESSAGES FOR TEST 


TSVCK: .ASCIZ 
TSVCK2: .ASCIZ 
TSNVCK: .ASCIZ 
TSSSR: .ASCIZ 
TSNMSG: .ASCIZ 
TSTSIO: .ASCIZ 

-EVEN 

ENDTST 


sLOOP ON ERROR ? 


TRAP 


sSHOULD WE DO ITERATIONS ? 


sBRANCH IF NOT 


sLOOP UNTIL COUNT EXPIRED 


sALL DONE THIS T 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND 


EST 


TRAP 
- WORD 






SEQ 146 


CSsCLP1 


CSEXIT 
L10054-. 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF COUNTER 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


‘VCK Bit NOT Cleared After WRITE CHARACTERISTICS With CVC=1' 
‘VCK Bit NOT Set After INITIALIZE With CVC=0' 
‘VCK Bit Modified After WRITE CHARACTERISTICS With CVC=0' 


‘Contents of TSSR Incorrect After Write Characteristics’ 


‘No Message Packet Returned To Host After WRITE CHARACTERISTICS’ 


‘Volume Check’ 


L10054: 





TRAP 


CSETST 
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TEST 6: COMPLETION INTERRUPT 


5206 -SBTTL TEST 6: COMPLETION INTERRUPT 

5207 

5208 

5209 3 THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 

5210 F COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 

S2i1 3 ENABLE CIE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 

5212 3 CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 

ety 3 PROCESSING OF THE IE BIT. 

1 8 

5215 3 THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT 

5216 3 SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 

5217 3 CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1). IT 

5218 3 IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS SIT IN XSTO 

5219 ; OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 

5220 F GENERATED. FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE 

5221 3 FIRST WITH IE=1 AND THE SECOND WITH IE=0. IT IS VERIFIED THAT 

5222 8 NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 

5223 3 IE BIT IN XSTO IS O. 

5224 F 

5225 031426 BGNTST 
031426 T6:: 

5226 03142€ 005037 002170 CLR FATFLG ;CLEAR FATAL ERROR FLAG 

5227 031432 012737 005672 002146 MOV #EPRT1,EPRTSW ;SET UP ERROR MESSAGE SWITCH 

5228 021440 005037 003100 CLR KTFLG sHOLD OFF KTi1 

5233 031444 012700 033401 MOV #TST6ID,RO sASCII MESSAGE TO IDENTIFY TEST 

5234 031450 004737 017232 JSR PC, TSTSETUP :00 INITIAL TEST SETUP 

5235 031454 012737 000002 002164 MOV #2. ,LOOPCNT sPERFORM 2 ITERATIONS 

5236 031462 T6LOOP : 

5237 031462 GNSUB 34/////////// BEGIN SUBTEST //////////// 
031462 T6.1: 

an 031462 104402 TRAP C$BSUB 

2 

5239 031464 004737 033426 JSR PC, T6REST sSET PACKET TO INITIAL VALUES 

5240 031470 SETPRI #PRIOO ;LOWER PRIORITY TO ALLOW INTERRUPTS 
031470 012700 000000 MOV #PRIOO,RO 
031474 104441 TRAP C$SPRI 

5241 031476 012703 002732 MOV #TSTBLK+10.,R3 sSTART OF TEST DATA 

5242 031502 012704 032330 MOV #T6PACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 

poe atte 012764 000010 000006 - MOV #8. ,PKBCNTC(R4) ;START WITH MINIMUM ALLOWABLE VALUE 

244 03151 : 

5245 031514 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

= 031514 104404 TRAP C$BSEG 

246 

5247 031516 004737 016470 JSR PC ,SOFINIT :D0 SOFT INIT OF CONTROLLER 

5248 031522 103405 BCS 10$ ;BR IF SOFT INIT = OK 

5252 031524 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

5253 031526 _ERRDF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
031526 104455 TRAP CSERDF 
031530 001131 -WORD 601 
031532 003550 «WORD SFIERR 
031534 011506 -WORD SFIMSG 

5254 031536 005037 002170 10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 

5255 031542 005037 002172 CLR INTRECV ;CLEAR INTERRUPT RECEIVED FLAG 

5256 031546 010465 177776 MOV R4, TSDOBCRS) ;SET THE PACKET ADDRESS 

5257 031552 004737 017060 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

5258 031556 103407 BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 

5259 031560 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
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TEST 6: COMPLETION INTERRUPT 


5263 031562 
031562 
031564 
031566 
031570 

5264 031572 

5265 031576 
031576 

5266 031600 
031600 
031602 

5267 031604 

5268 031610 

5272 031612 
031612 
031614 
031616 
031620 

5273 031622 

5274 031626 

5275 031632 

5276 031636 

5277 031640 

S278 021644 

5279 031646 


5283 031650 


031650 
031652 
031654 
031656 
5284 031660 
5285 031660 
031660 
031660 


5287 031662 
5288 031666 
5289 031672 
5290 031674 


5292 031700 
031700 
031700 


5294 031702 
5295 031706 
5296 031710 
5297 031714 


ae 


104455 
001132 
033047 


032406 
011520 


104405 


012364 
020227 
103002 
000137 


104403 


005737 
001402 
004737 





017724 


002172 


000000 
000200 
000100 


000100 


000006 
003030 


031514 


002170 
017776 





15$: 


22$: 


25$: 


30$: 


55%: 


70$: 
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ERRDF 


JSR 
CKLOOP 


ESCAPE 
TST 


BNE 
ERRHRD 


ERRHRD 


ENDSEG 


MOV 
CMP 
BHIS 
JMP 


ENDSUB 


TST 
BEQ 
JSR 


09:48 PAGE 100-1 


ERRNO, T6SSR,PKTSSR 


PC ,FATCHK 
SEG 


INTRECV 
22$ 
ERRNO, T6NINT ,PKTSSR 


TSSRCRS),R1 
#SSR,R2 


30$ 
ERRNO, T6NBA,PKTSSR 


(R3)+,PKBCNTCR4) 
R3,#TBLEND 

55$ 

5$ 


FATFLG 
70$ 
PC ,CKDROP 





SEQ 148 


;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 602 
-WORD T6SSR 


-WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 

CsCLP1 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
-WOR 10900$-. 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


TRAP CSERHRD 
603 


- WORD 
-WORD T6NINT 
-WORD PKTSSR 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTEC MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 


-WORD 604 
-WORD T6NBA 
-WORD PKTSSR 


666660 60e0C"e END SEGMENT <ceeeeeeeeece 
10000$: 
TRAP CS$ESEG 


sSET THE TEST WORD 

sHAS ALi DATA BEEN TESTED ? 
sBRANCH IF ALL DATA DONE 
sBRANCH TILL BACK TO ZERO 


s\ANNANNANNNAN END SUBTEST \ANAAANANAAAA 
L10056: 
TRAP CS$ESuB 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 








CZTKEBO TK25 FRT END FUNC @1 
: COMPLETION INTERRUPT 


TEST 6 


5344 


031714 
031714 
031714 


031716 
031716 
031722 
031724 
031730 
031734 


031740 
031740 


031742 
031746 
031750 
031752 
031752 
031754 
031756 
031760 
031762 
031766 
031770 
031772 
031776 
032002 
032006 
032010 
032012 
032012 
032014 
032016 
032020 
032022 
032022 
©32024 
03<024 
032026 
022030 
032034 
03ceu36 
032036 
032040 
032042 
032044 
032046 


104402 


012700 
104441 
012703 
012704 
004737 


104404 
004737 


103405 
010001 


016501 





000000 


032372 
032330 
033426 


016470 


002172 


000002 


177776 


016744 


002172 


000000 
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3¢ 


; 
sTEST 6, SUBTEST 2 


CHECK THAT UNUSED BITS BEING SET CAUSES 





SEQ 149 


sWRITE CHARACTERISTICS COMMAND TO BE REJECTED 


5$: 


10$: 


15$: 


22$: 


BGNSUB 


SETPRI 


MOV 
MOV 
JSR 
BGNSEG 
JSR 
BCS 


MOV 
ERRDF 


CKLOOP 
ESCAPE 


TST 
BNE 
ERRHRD 


MOV 


#PRIOO 


#T62DATA,R3 
#T6PACKET,R4 
PC, T6REST 


PC ,SOF INIT 
10$ 


RO,R1 
ERRNO, SFIERR,SFIMSG 


INTRECV 
R4,RO 
CR3),RO 
2(R3), (RO) 
R4, TSDBCRS) 
PC ,WAITF 
15$ 


RO,R1 
ERRNO, T6SSR,PKTSSR 


SEG 

INTRECV 

22$ 

ERRNO, T6NINT ,PKTSSR 


TSSRCR5),R1 


TT AAAAAAAAAAAA = SISASASSASSSS 
"TRAP —seG$BSUB 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV #PRIOO ,RO 
TRAP C$SPRI 
sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 


:D0 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE SATAL ERROR ons © vis 


CSERDF 

-WORD 605 
-WORD  SFIERR 
ORD SFIMSG 


«W 
sCLEAR INTERRUPT RECEIVED FLAG 
sSTART OF THE COMMAND PACKET 
sOFFSET TO THE DATA WORD TO TEST 
;SET THE DATA BITS TO BE TESTED 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR ener ewer 


CSERDOF 
-WORD 606 
-WORD T6SSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
sBY-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
-WOR 10000$-. 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
-WORD 607 
-WORD  T6NINT 
PKTSSR 


- WORD 
sGET THE CONTENTS OF TSSR 








CZTKEBO TK25 FRT END FUNC @1 
TEST 6: COMPLETION INTERRUPT 


5345 032052 
5346 032056 
5347 032062 
5348 032064 
5349 032070 
5350 032072 
5354 032074 
032074 
032076 
032100 
032102 
5355 032104 
5356 032104 
032104 
032104 


5358 032106 
5359 032112 
5360 032116 
5361 032120 


5363 032124 
032124 
022124 





012702 
032701 
001402 
052702 
020201 
001404 


104456 
001140 
032461 
011520 


104405 


062703 
020327 
103002 
000137 


104403 


102206 
000100 


000100 


000004 
032406 


031730 





25$: 


30$: 


59$: 
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MOV #SC!SSR! TSREJ!NBA,R2 sEXPECTED CONTENTS OF TSSR 
BIT #OFL ,R1 sIS OFF-LINE BIT SET ? 
BEQ 25$ sBRANCH IF NOT OFF-LINE 
BIS @OFL ,R2 sSET OFF-LINE IN EXPECTED DATA 
CMP R2,R1 sDOES EXPECTED MATCH RECEIVED ? 
BEQ 30$ sOKAY IF MATCH 


ERRHRD ERRNO, T62REJ,PKTSSR sCOMMAND NOT REJECTED 
TRAP CSERHRD 


«WORD 608 
«WORD T62REJ 
«WORD PK7TSSR 
ENDSEG 3660606 K KCK END SEGMENT <eeeeceeeeece 
10000$: 
TRAP CSESEG 
ADD #4,R3 sPOINT TG NEXT DATA PAIR 
CMP R3,#T62D0NE sCOMPARE TO END OF TEST DATA 
BHIS 59$ ;BRANCH IF ALL DATA TESTED 
JMP 5$ sBRANCH TILL BACK TO ZERO 
ENDSUB sN\NNANNNNNANNN END SUBTEST \AAANANANANAA 
L10057: 


TRAP CSESUB 





















CZTKEBO TK25 FRT END FUNC @1 
TEST 6: COMPLETION INTERRUPT 


5365 3+ 
F 
sTEST 6, SUBTEST 3 
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5367 

© 568 : 

5369 sSUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 

sere sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 

3 

5372 3° 

5373 

5374 032126 BGNSUB s///1//11/////7/ BEGIN SUBTEST //////////// 
032126 76.3: 

a 032126 104402 TRAP C$BSUB 

5376 032130 SETPRI #PRIOO ;LOWER PRIORITY TO ALLOW INTERRUPTS 
032130 012700 000000 MOV #PRIOO,RO 
032134 104441 TRAP C$SPRI 

5377 032136 012703 032372 MOV #T62DATA,R3 sSTART OF TEST DATA FOR SUBTEST 

5378 032142 012704 032330 S$: MOV #T6PACKET,R4 sGET THE ADDRESS OF COMMAND PACKET 

co. 032146 004737 033426 JSR PC, T6REST sRESTORE PACKET TO STARTING VALUES 

5381 

5382 032152 004737 016470 JSR PC ,SOFINIT ;D0 SOFT INIT OF CONTROLLER 

5383 032156 103405 BCS 10$ ;BR IF SOFT INIT = OK 

5387 032160 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5388 032162 ERRDF ERRNO,SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
032162 104455 TRAP CSERDF 
032164 001141 -WORD 609 
032166 003550 -WORD SFIERR 
032170 011506 -WORD SFIMSG 

5389 032172 005037 002172 10$: CLR INTRECV ;CLEAR INTERRUPT RECEIVED FLAG 

5390 032176 052737 000001 032340 BIS #1, T6DATA sMAKE ADDRESS ODD 

5391 032204 010465 177776 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS 

5392 032210 004737 016744 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

5393 032214 103405 BCS 15$ 3BR IF CARRY SET (GOOD RETURN) 

5394 032216 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5398 032220 ERRDF ERRNO, T6SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
032220 104455 TRAP CSERDOF 
032222 001142 -WORD 610 
032224 033047 -WORD T6SSR 
032226 011520 -WORD PKTSSR 

5399 032230 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
032230 104406 TRAP CS$CLP1 

5400 032232 ESCAPE SUB 3BY-PASS SUBTEST IF FATAL ERROR 
032232 104410 TRAP CSESCAPE 
032234 000056 -WORD 1L10060-. 

5401 032236 005737 002172 TST INTRECV ;DID AN INTERRUPT OCCUR ? 

5402 032242 001004 BNE 22$ ;BRANCH IF YES 

5406 032244 ERRHRD ERRNO, T6NINT,PKTSSR 
032244 104456 TRAP CSERHRD 
032246 001143 WORD 611 
032250 033136 -WORD T6NINT 
032252 011520 -WORD PKTSSR 

5407 032254 016501 000000 22$: MOV TSSRCR5),R1 ;GET THE CONTENTS OF TSSR 

5408 032260 012702 102206 MOV #SC!SSR! TSREJ!NBA,R2 s;EXPECTED CONTENTS OF TSSR 

5409 032264 032701 000100 BIT #OFL,R1 sIS OFF-LINE BIT SET ? 

5410 032270 001402 BEQ 25$ sBRANCH IF NOT OFF-LINE 

5411 032272 052702 000100 BIS #0FL,R2 ;SET OFF-LINE IN EXPECTED DATA 











CZTKEBO TK25 FRT END FUNC @1 
TEST 6: COMPLETION INTERRUPT 


5412 032276 
5413 032300 
5417 032302 
032302 
032304 
032306 
032310 
5418 032312 
5419 
5420 032312 
032312 
032312 
5421 





020201 
001404 


104456 
001144 
032653 
011520 


104403 
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25$: CMP R2,R1 
BEQ 30$ 
ERRHRD ERRNO, T64REJ,PKTSSR 


30$: 
ENDSUB 


SEQ 152 






sDOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

sCOMMAND NOT REJECTED 
CSERHRD 
612 
T64REJ 
PKTSSR 


sN\ANANANANAANN END SUBTEST \AANAANANAANA 
L10060: 
TRAP CSESUB 













A SES 


CZTKEBO TK25 FRT END FUNC #1 MACRO M1200 07-JUN-84 09:48 PAGE 103 SEQ 153 
TEST 6: COMPLETION INTERRUPT 


5423 

5424 032314 EXIT TST ;ALL DONE THIS TEST 
032314 104432 TRAP CSEXIT 
032316 001162 -WORD L10055-. 

5425 

5426 3+ 

5427 ;LOCAL STORAGE FOR THIS TEST 

5428 s- 


5431 032320 -BLKB = 10-<.-TUV2AE7> 

5433 032330 T6PACKET: sCOMMAND PACKET FOR TEST 

5434 032330 100204 -WORD 100204 sWRITE CHAR COMMAND, WITH IE, ACK 
5435 032332 032340 -WORD T6DATA sADDRESS OF CHARACTERISTICS BLOCK 
5436 032334 000000 -WORD 0 

5437 032336 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 


5439 032340 T6DATA: sCHARACTERISTICS DATA BLOCK 
5440 032340 032352 -WORD T6BFR sADDRESS OF MESSAGE BUFFER 
5441 032342 000000 -WORD 0 

5442 032344 000016 -WORD 14. sLENGTH OF MESSAGE BUFFER 
5443 032346 000000 000000 -WORD 0,0 


5445 032352 T6BFR: .BLKW 8. ;MESSAGE BUFFER 
5447 10 

5449 ;TEST DATA FOR SUBTEST TWO 

5451 ;DATA HAS FORMAT: 


; 
5453 ; 1ST WORD OFFSET TO TEST WORD IN PACKET 
5454 ; 2ND WORD BITS TO SET FOR TEST 


5456 ad 


5458 032372 T62DATA: 

5459 032372 000000 036140 -WORD 0,BITS!BIT6!B1IT6!BIT10!B1T11!B1IT12!BIT13 
5460 032376 000002 000001 -WORD 2,BITO 

5461 032402 000004 100100 -WORD 4,B6IT6!BIT1i5 
5462 032406 T62D0NE=. 





3+ 
5466 ;LOCAL TEXT MESSAGES FOR TEST 
5467 :- 


5469 032406 127 122 111 T6NBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 

5470 032461 127 122 111 T62REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields’ 
5471 032560 127 122 111 T63REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Date Count’ 
5472 032653 127 122 111 T64REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Block Address’ 
5473 032751 127 122 111 T6SREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Buffer Length’ 
5474 033047 103 157 156 T6SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 

5475 033136 105 170 160 T6NINT: .ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS' 

5476 033227 125 156 145 T6INT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 

5477 033316 111 156 143 T6TSBA: .ASCIZ ‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 
oth 033401 103 157 155 TST6I0: yoy ‘Completion Interrupt’ 











CZTKEBO TK25 FRT END FUNC #1 
: COMPLETION INTERRUPT 


TEST 6 


5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 


012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 


104401 





032330 
100204 
032340 


000010 
032352 


000016 


032352 
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3* 


i 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
3 


T6REST: 


@T6PACKET,R1 
#100204, (R1)+ 
@T6DATA,(R1)+ 
(R1)+ 

#8. ,C(R1)+ 
@T6BFR,CR1)+ 
(R1)+ 

#14. ,(R1)+ 
(R1)+ 

(R1) 

T6BFR 

P 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
sRETURN 


L10055: 


TRAP 








SEQ 154 


CsETST 





qQwwe o 





CZTKEBO TK25 FRT END FUNC @1 
TEST 7: BASIC PACKET PROTOCOL 


5519 033502 

033502 
5520 033502 
5521 033506 
5522 033514 
5527 033520 
5528 033524 
5529 033530 
5530 033536 


5532 033536 
033536 
033536 


5534 033540 
5535 033544 
033544 
033550 
5536 033552 
5537 033556 
5538 033564 
5539 033564 
033564 


005037 
012737 
005037 
012700 
004737 
012737 


036270 


002170 
005672 
003100 
036537 
017232 
000002 


036566 
000000 


035640 
000010 


016470 


002170 
002172 
177776 
017060 
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002146 


002164 


000006 





PAGE 105 


SEQ 155 


-SBTTL TEST 7: BASIC PACKET PROTOCOL 


3* 
sTEST 7, SUBTEST 1 


THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


; 

sCHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
sPROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN 

sIF THE “IE” BIT IS SET IN THE COMMAND PACKET 


BGNTST 
CLR FATFLG 
MOV @€PRT1,EPRTSW 
CLR KTFLG 
MOV @TST7ID,RO 
JSR PC, TSTSETUP 
MOV @2. ,LOOPCNT 
T7LOOP: 
BGNSUB 
JSR PC, T7RST 
SETPRI 4PRIOO 
MOV OT7PACKET,R4 
7 MOV 08. , PKBCNT(R4) 
‘ BGNSEG 
JSR PC, SOF INIT 
BCS 10$ 
MOV RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 
10$: CLR FATFLG 
CLR INTRECV 
MOV R4, TSDBCRS) 
JSR PC.CHKTSSR 
BCS 153 
MOV RO,R1 
ERROF ERRNO, T7SSR,PKTSSR 


T?:: 
;CLEAR FATAL ERROR FLAG 
;SET UP ERROR MESSAGE SWITCH 


sHOLD OFF KT11 


sASCII MESSAGE TO IDENTIFY TEST 
:00 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


TALAAAAAAAAAA eX SUBTEST ///////////7/ 
ont 
TRAP CsBSuB 


sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO RO 
TRAP C$SPRI 
sGET THE ADDRESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 


:D0 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 


TRAP CSEROF 
-WORD 701 
-WORD SFIERR 
-WORD SFIMSG 

sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 702 
-WORD  T7SSR 








CZTKEBO TK25 FRT END FUNC @1 
TEST 7: BASIC PACKET PROTOCOL 


fete 


033640 
5558 033642 
5559 033646 


3646 
5560 033650 
033650 


036270 
011520 


104405 


002172 


000000 
000200 
000100 


000100 


017724 


002172 


000200 
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035662 


15$: 


22$: 


25%: 


45$: 


JSR 
CKLOOP 


ESCAPE 


TST 
BNE 
ERRHRD 


BEQ 


ERRHRD 


ENDSEG 


BGNSEG 


MOV 
MOV 





PC ,FATCHK 
SEG 


INTRECV 
22$ 
ERRNO, T7NINT ,PKTSSR 


TSSRCRS).R1 
R2 


3 
ERRNO, T7SSR,PKTSSR 


INTRECV 
#025252, T7BFR 
#100212, (R4) 
R4, TSOBCRS) 
PC ,CHKTSSR 
45$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


PC ,.FATCHK 


INTRECV 
52s 
ERRNO, T7INT,PKTSSR 


TSSRCRS) RI 
@SSR ,R2 


SEQ 156 


WORD PKTSSR 
INC _AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET coeur 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 
WORD 10000$-. 


;DID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


TRAP CSERHRD 
-WORD 703 
-WORD T7NINT 
WORD PKTSSR 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 

sNBA NOT ZERO 


TRAP CSERHRD 

«WORD 704 

-WORD T7SSR 

«WORD PKTSSR 
36 <4060€¢¢0000C"4 END SEGMENT <<eceeeeecece 

10000$: 

TRAP CSESEG 
pie pags BEGIN SEGMENT »>>>>>>>>>>>> 

TRAP CS$BSEG 


sCLEAR INTERRUPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 

sSET COMMAND PACKET TO MESS BUF REL 
sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 


TRAP CSEROF 
-WORD 705 

-WORD T7SSR 
-WORD PKTSSR 


INC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


TRAP CscLPi 
sD0ID AN INTERRUPT OCCUR ? 
sBRANCH IF NO 
TRAP CSERHRD 
-WORD 706 
-WORD = T7INT 
WORD PKTSSR 


:GET THE CONTENTS OF TSSR 
;EXPECTED CONTENTS OF TSSR 








CZTKEBO TK25 FRT END FUNC @1 


TEST 7: BASIC PACKET PROTOCOL 


034120 
034120 


—-- 


032701 
001402 
052702 
020201 
001404 


104456 
001303 
036270 
011520 


013701 
012702 
020102 
001404 


104456 
001304 
035744 
016170 


005737 
001403 
004737 


104405 


104403 





0090100 
000100 


035662 
025252 


002170 
017776 
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558: 


60$: 


70$: 


80$: 


BEQ 
ERRHRD 


BEQ 
ERRHRD 


ENDSEG 


ENDSUB 





09:48 PAGE 105-2 


60 
ERRNO, T7SSR,PKTSSR 


T7BFR,R1 
#025252,R2 

R1,R2 

70$ 
ERRNO, T7MBF ,EXPREC 


FATFLG 
80$ 
PC ,,CKDROP 






SEQ 157 


sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
s"TSSR INCORRECT AFTER WRT CHARA.” 
TRAP CSERHRD 


-WORD 707 
-WORD T7SSR 
-WORD PKTSSR 


sPICK UP THE 1ST WORD OF MESSAGE BUFFER 
sSET UP EXPECTED DATA 

sWAS ANY MESSAGE REC’D 

sBR, IF OK CEQUAL) 

sMESSAGE BUFFER WAS oe > 


CSERHRD 
-WORD 708 
-WORD T7MBF 
-WORD EXPREC 


sANY FATAL ERRORS 

;BR, IF NO FATAL ERRORS 

sTRY TO DROP THE WNIT 

36 <0€0ee CeCe Ce END SEGMENT <<ececeeeeeee 


10001$: 

TRAP CSESEG 

3///////////7 END SUBTEST //////////7/7/ 
L10062: 

TRAP CsESUB 
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TEST 7: BASIC PACKET PROTOCOL 


5630 3+ 
seas sTEST 7, SUBTEST 2 
6 Hy 

5633 ;CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 

5634 sPROPERLY AND THAT THERE IS AN INTERRUPT IF THE “IE” 

5635 ;BIT IS SET IN THE COMMAND PACKET AND THE “ERI” BIT 

5636 :IS SET IN THE CHARACTERISTICS DATA PACKET 

5637 Hy 

5638 :- 

5639 034122 BGNSUB 3///////////7/ BEGIN SUBTEST S/////////// 
034122 T7.2: 

meee 034122 104402 TRAP C$BSUB 

5641 034124 004737 036566 JSR PC, T7RST ;SET PACKET TO INITIAL VALUES 

5642 034130 SETPRI #PRIOO ;LOWER PRIURITY TO ALLOW INTERRUPTS 
034130 012700 000000 MOV #PRIOO RO 
034134 104441 TRAP C$SPRI 

5643 034136 012704 035640 MOV #T7PACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 

5644 034142 012764 000010 000006 MOV #8. ,PKBCNTC(R4) sSTART WITH MINIMUM ALLOWABLE VALUE 

5645 034150 S$: 

5646 034150 BGNSEG $>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

see? 034150 104404 TRAP CS$BSEG 

5648 024152 004737 016470 JSR PC SOF INIT :D0 SOFT INIT OF CONTROLLER 

5649 024156 103405 6cS 10$ ;BR IF SOFT INIT = OK 

5653 034160 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

5654 034162 ERRDF ERRNO,SFIERR,SFIMSG ;sDEVICE FATAL ERROR DURING INIT 
034162 104455 TRAP CSEROF 
034164 001305 -WORD 709 
034166 003550 -WORD SFIERR 
034170 011506 -WORD SFIMSG 

5655 034172 005037 002170 10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 

5656 034176 005037 002172 CLR INTRECV ;CLEAR INTERRUPT RECEIVED FLAG 

5657 034292 012737 000020 035656 MOV #000020, T7DATA+6 ;SET ERI IN CHARACTERISTICS DATA 

5658 034210 10465 177776 MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS 

5659 034214 004737 017060 JSR PC ,CHKTSSR ;WAIT FOR SSR TO SET 

5660 034220 103407 BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 

5661 034222 010001 MOV RO.R1 ;SAVE CONTENTS OF TSSR 

5665 034224 ERRDF  ERRNO,T7SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
034224 104455 TRAP CSERDF 
034226 001306 -WORD 710 
034230 036270 -WORD T7SSR 
034232 011520 -WORD PKTSSR 

5666 034234 004737 017724 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5667 034240 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
034240 104406 TRAP CSCLPi 

5668 034242 ESCAPE SEG ;BY-PASS SUBTEST IF FATAL ERROR 
034242 104410 TRAP CSESCAPE 
034244 000056 «WORD 10000$-. 

5669 034246 005737 002172 TST INTRECV ;DID AN INTERRUPT OCCUR ? 

5670 034252 001004 BNE 22$ ;BRANCH IF YES 

5674 034254 ERRHRD ERRNO, T7NINT,PKTSSR 
034254 104456 TRAP CS$ERHRD 
034256 001307 -WORD 711 
034260 036357 -WORD T7NINT 
034262 011520 -WORD PKTSSR 


5675 034264 016501 000000 22$: MOV TSSRC(RS),R1 sGET THE CONTENTS OF TSSR 
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5676 
5677 
5678 
5679 
5680 
5681 
5685 


5686 
5687 


5688 


5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5700 


5701 
5702 


5703 
5704 
5708 


5709 
5710 
5711 
5712 
5713 
5714 
5715 
5719 


5720 
$721 
5722 
5723 
5724 


034270 
034274 
034300 
034302 
034306 
034310 
034312 
034312 
034314 
034316 
034320 
034322 
034322 
034322 
034322 
034324 
034324 


034326 
034332 
034340 
034344 
034350 
024354 
034356 
034360 
034360 
034362 
034364 
034366 
034370 
034374 
034374 
034376 
034402 
034404 
034404 
034406 
034410 
034412 
034414 
034420 
034424 
034430 
034432 
034436 
034440 
034442 
034442 
034444 
034446 
034450 
034452 
034452 
034456 
034462 
034464 


012702 
032701 
001402 
052702 
020201 
001404 


104456 
001310 
036270 
011520 


104405 
104404 


005037 
012737 
012714 
010465 
004737 
103407 
010001 


104455 
001311 
036270 
011520 
004737 


104406 
005737 
001004 


104456 
001312 
036450 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001404 


104456 
001313 
036270 
011520 


013701 
012702 
020102 
001404 





000200 
000100 


000100 


002172 
025252 
100212 
177776 
017060 


017724 


002172 


000000 
000200 
000100 


000100 


035662 
025252 





a re 
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035662 


25$: 


308: 


45$: 


52$: 


55$: 


60$: 


ENDSEG 


BGNSEG 


BNE 


BEQ 
ERRHRD 


MOV 
MOV 
CMP 
BEQ 


3 
ERRNO, T7SSR,PKTSSR 


INTRECV 
#025252, T7BFR 
#100212, (R4) 
R4, TSOBCRS) 
PC,.CHKTSSR 
4S$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


PC ,FATCHK 

INTRECV 

S2$ 

ERRNO, T7INT,PKTSSR 


TSSR(RS),R1 
#SSR,R2 


ERRNO, T7SSR,PKTSSR 


T7BFR,R1 
#025252,R2 
R1,R2 

70$ 





































SEQ 159 


sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 

sDOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 712 
-WORD T7SSR 
-WORD PKTSSR 


3666600000000" END SEGMENT <eeeeeeeeeece 


10000$: 
TRAP CSESEG 
3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>> >> 
TRAP C$BSEG 


sCLEAR INTERRUPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 

sSET COMMAND PACKET TO MESS BUF REL 
sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR eine * Ama 


CSERDF 
-WORD 713 
-WORD T7SSR 
WORD  PKTSSR 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 
CSsCLP1 


TRAP 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


TRAP CSERHRD 


-WORD 714 
-WORD  T7INT 
-WORD PKTSSR 


sGET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 

sDOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

sNBA NOT SET 
TRAP CSERHRD 
-WORD 715 
-WORD T7SSR 
-WORD PKTSSR 


sPICK UP THE 1ST WORD OF MESSAGE BUFFER 
;SET UP EXPECTED DATA 
sWAS ANY MESSAGE REC‘D 
BR, IF OK CEQUAL) 
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5728 034466 
034466 
034470 
034472 
034474 

5729 

5730 034476 

5731 034476 

5732 034502 

5733 034504 

5734 034510 

5735 034510 
034510 
034510 

5736 034512 
034512 
034512 


104456 
001314 
035744 
016170 


005737 
001402 
004737 


104405 


104403 


002170 
017776 
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70$: 


80$: 


ERRHRD 


TST 
BEQ 
JSR 


ENDSEG 


ENDSUB 


09:48 PAGE 106-2 


ERRNO, T7MBF ,EXPREC 


FATFLG 
80$ 
PC ,CKDROP 









SEQ 160 









sMESSAGE BUFFER WAS MODIFIED 
TRAP 


CSERHRD 
-WORD 716 
-WORD T7MBF 


-WORD EXPREC 


sANY FATAL ERRORS 
BR, IF NO FATAL ERRORS 
sTRY TO DROP THE UNIT 


364440600000" END SEGMENT <<ceeeeeeeecece 
10001$: 


TRAP CSESEG 
s/////////7//7 END SUBTEST //////////7/7/ 


L10063: 
TRAP CSESUB 





SS SS 
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5738 3+ 
din sTEST 7, SUBTEST 3 
0 Hy 

5741 sCHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER 

5742 sAFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS 

5743 sWORK CORRECTLY 

5744 8 

5745 8° 

5746 934514 BGNSUB s//////////// BEGIN SUBTEST ///////////7/ 
034514 177.3: 

su? 034514 104402 TRAP C$BSUB 

5748 034516 004737 036566 JSR PC,T7RST sSET PACKET TO INITIAL VALUES 

5749 034522 SETPRI #PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
034522 012700 000000 MOV #PRIOO RO 
034526 104441 TRAP C$SPRI 

5750 034530 012704 035640 MOV #T7PACKET,R4 sGET THE ADDRESS OF COMMAND PACKET 

5751 034534 012764 000010 000006 MOV #8. ,PKBCNT(R4) sSTART WITH MINIMUM ALLOWABLE VALUE 

5752 034542 5$: 

5753 034542 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

a 034542 104404 TRAP CSBSEG 

5755 034544 004737 016470 JSR PC ,SOFINIT :D0 SOFT INIT OF CONTROLLER 

5756 024550 103405 BCS 10$ 3BR IF SOFT INIT = OK 





5760 034552 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5761 034554 ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
034554 104455 TRAP CSERDF 
034556 001315 -WORD 717 
034560 003550 -WORD SFIERR 
034562 011506 -WORD SFIMSG 

5762 034564 005037 002170 10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 

5763 034570 005037 002172 CLR INTRECV ;CLEAR INTERRUPT RECEIVED FLAG 

5764 034574 010465 177776 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS 

5765 034600 004737 017060 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

3766 034604 103407 BCS 15$ sBR IF CARRY SET (GOOD RETURN) 

5767 034606 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5771 034610 ERRDF ERRNO, T7SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
034610 104455 TRAP CSERDOF 
034612 001316 -WORD 718 
034614 036270 -WORD T7SSR 
034616 011520 -WORD PKTSSR 

5772 034620 004737 017724 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5773 034624 15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
034624 104406 TRAP CSCLP1 

5774 034626 ESCAPE SEG sBY-PASS SUBTEST IF FATAL ERROR 
034626 104410 TRAP CSESCAPE 
034630 000056 -WOR 10000$-. 

5775 034632 005737 002172 TST INTRECV ;DID AN INTERRUPT OCCUR ? 

5776 034636 001004 BNE 22$ sBRANCH IF YES 

5780 034640 ERRHRD ERRNO, T7NINT,PKTSSR 
034640 104456 TRAP CSERHRD 
034642 001317 -WORD 719 
034644 036357 «WORD T7NINT 
034646 011520 -WORD PKTSSR 

5781 034650 016501 000000 22$: MOV TSSRC(RS),R1 sGET THE CONTENTS OF TSSR 

5782 034654 012702 000200 MOV #SSR ,R2 sEXPECTED CONTENTS OF TSSR 

5783 034660 032701 000100 BIT #OFL,R1 sIS OFF-LINE BIT SET ? 

a RS SS a RS AE STR NRE 1S SS SS RSE 
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5784 034664 001402 BEQ 25$ sBRANCH IF NOT OFF-LINE 

S785 034566 052702 000100 BIS #0FL ,R2 sSET OFF-LINE IN EXPECTED DATA 

5786 034672 020201 25$: CMP R2,R1 sDOES EXPECTED MATCH RECEIVED ? 

5787 034674 001404 BEQ 30$ sOKAY IF MATCH 

5791 034676 ERRHRD ERRNO, T7SSR,PKTSSR sNBA NOT ZERO 
034676 104456 TRAP CSERHRD 
034700 001320 -WORD 720 
034702 036270 -WORD T7SSR 
034704 011520 -WORD PKTSSR 

5792 034706 30$: 

5793 034706 ENDSEG p<K ERK K KKK END SEGMENT <<ccceceeceeece 
034706 10000$: 
034706 104405 TRAP CSESEG 

5794 034710 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
034710 104404 TRAP C$BSEG 

5795 034712 004737 036566 JSR PC, T7RST sRESET PACKETS AND COMMANDS 

5796 034716 005037 002172 CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 

3797 034722 012737 025252 035662 MOV #025252, T7BFR sWIPE OUT MESSAGE BUFFER AREA 

5798 034730 012714 100212 MOV #100212, (R4) sSET COMMAND PACKET TO MESS BUF REL 

5799 034734 010465 177776 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS 

5800 034740 004737 017060 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

5801 034744 103407 BCS 45$ :BR IF CARRY SET (GOOD RETURN) 

5802 034746 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5806 024750 ERRDF ERRNO, T7SSRM,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
034750 104455 TRAP CSEROF 
034752 001321 -WORD 721 
034754 036200 -WORD T7SSRM 
034756 011520 -WORD PKTSSR 

5807 034760 004737 017724 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5808 034764 45$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
034764 104406 TRAP CSCLP1 

5809 034766 005737 002172 TST INTRECV sDID AN INTERRUPT OCCUR ? 

5810 034772 001404 BEQ 52$ sBRANCH IF NO 

5814 034774 ERRHRD ERRNO, T7INT,PKTSSR 
034774 104456 TRAP CSERHRD 
034776 001322 «WORD 722 
035000 036450 -WORD T7INT 
035002 011520 -WORD PKTSSR 

5815 035004 016501 000000 52$: MOV TSSRCRS),R1 sGET THE CONTENTS OF TSSR 

5816 035010 012702 000200 MOV #SSR ,R2 sEXPECTED CONTENTS OF TSSR 

5817 035014 032701 0C0100 BIT #0FL,R1 IS OFF-LINE BIT SET ? 

5818 035020 001402 BEQ 55$ sBRANCH IF NOT OFF-LINE 

5819 035022 052702 000100 BIS #0FL ,R2 sSET OFF-LINE IN EXPECTED DATA 

5820 035026 020201 55$: CMP R2,R1 sDOES EXPECTED MATCH RECEIVED ? 

5821 035030 001404 BEQ 60$ ;OKAY IF MATCH 

5825 035032 ERRHRD ERRNO, T7SSR,PKTSSR sNBA NOT SET 
035032 104456 TRAP CSERHRD 
035034 001323 -WORD 723 
035036 036270 -WORD T7SSR 
035040 011520 -WORD PKTSSR 

5826 035042 60$: 

5827 035042 013701 035662 MOV T7BFR,R1 sPICK UP THE 1ST WORD OF MESSAGE BUFFER 

5828 035046 012702 025252 MOV #025252,R2 s;SET UP EXPECTED DATA 

5829 035052 020102 CMP R1,R2 sWAS ANY MESSAGE REC'D 

5830 035054 001404 BEQ 70$ 3BR, IF OK CEQUAL) 

5834 035056 ERRHRD ERRNO, T7MBF,EXPREC sMESSAGE BUFFER WAS MODIFIED 
035056 104456 TRAP CSERHRD 
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060 
035064 


5836 035066 
035066 


5838 035070 
5839 035074 
35840 035100 
5841 035104 
5842 035110 
5843 035114 
5844 035116 
5848 035120 
035120 
035122 
035124 
035126 
5849 035130 
5850 035134 
035134 

5851 035136 
035136 
035140 

S852 035142 

5853 035146 

5857 035150 

5858 035154 
035154 

035156 

035160 

035162 

5859 035164 

5860 035170 

5861 035174 

5862 035200 

5863 035202 

5864 035206 

5865 035210 

5869 035212 
035212 

035214 

035216 

035220 

5870 035222 

5871 035222 
035222 

035222 

5872 035224 

5873 035230 

5874 035232 


5876 035236 

035236 
5877 035240 
5878 035244 


001324 
744 
016170 


104406 


005037 
004737 
042714 
010465 
004737 
103407 
010001 


104455 
001325 
036270 
011520 
004737 


011520 


104405 
005737 
001403 
004737 


104404 
005037 
004737 





002172 
036566 
100000 
177776 
017060 


017724 


002172 
000000 


000000 
000200 
000100 


000100 


002170 
017776 


002172 
036566 





70$: 


75$: 


82$: 


85$: 


90$: 


95$: 


JSR 
CKLOOP 


ESCAPE 


BEQ 
ERRHRD 


ENDSEG 


TST 
BEQ 
JSR 


BGNSEG 


CLR 
JSR 
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INTRECV 

PC, T7RST 
#100000, (R4) 
R4, TSDBCRS) 
PC ,CHKTSSR 
75$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


PC ,FATCHK 

SEG 

INTRECV 

82$ 

TSSRCRS) RO 

ERRNO, T7NINT ,PKTSSR 


TSSRCRS),R1 
#SSR,R2 


ERRNO, T7SSR,PKTSSR 


FATFLG 
95$ 
PC ,CKDROP 


INTRECV 
PC, T7RST 





SEQ 163 


-WORD 724 
-WORD  T7MBF 
-WORD  EXPREC 


sLOOP ON ERROR IF FLAG SET 
TRAP CSCLP1 


sCLEAR INTERRUPT RECEIVED FLAG 
sRESET THE PACKETS AND COMMANDS 
sCLEAR THE ACK BIT 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


«WORD 725 
-WORD T7SSR 
-WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 
CSCLP1 


TRAP 

sBY-PASS SUBTEST IF FATAL ERROR \ 
TRAP CSESCAPE 
-WORD 10001$-. 

sDID AN INTERRUPT OCCUR ? 

sBRANCH IF YES 

sGET TSSR FOR ERROR REPORT 


TRAP CSERHRD 


-WORD 726 
-WORD  T7NINT 
WORD PKTSSR 


sGET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 

sDOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

NBA NOT ZERO 
TRAP CSERHRD 
-WORD 727 
-WORD T7SSR 
-WORD  PKTSSR 


36 66600000¢0¢¢ END SEGMENT <eeeeceeeeeece 
10001$: 


TRAP CSESEG 
sANY FATAL ERRORS 
;BR, IF NO FATAL ERRORS 
sTRY TO DROP THE UNIT 


36 64€006¢¢¢¢¢¢ BGN SEGMENT <ceeeeeceeeeec 
TRAP C$BSEG 

sCLEAR INTERRUPT RECEIVED FLAG 

sRESET THE PACKETS AND COMMANDS 
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TEST 7: BASIC 


$879 035250 
5880 035254 
5881 035260 
5882 035262 
5886 035264 
035264 
035266 
035270 
035272 
5887 035274 
5888 035300 
035300 
5889 035302 
035302 
035304 
5890 035306 
5891 035312 
5895 035314 
5896 035320 
035320 
035322 
035324 
035326 
5897 025330 
5898 035334 
5899 035340 
5900 035344 
5901 035346 
5902 035352 
5903 035354 
5907 035356 
035356 
035360 
035362 
035364 
5908 035366 
035366 
035366 
5909 035370 
5910 035374 
5911 035376 
5912 035402 
5913 035402 
035402 
035402 
5914 035404 


010465 
004737 
103407 
010001 


104455 
001330 
036270 
011520 
004737 


104406 


104410 
000062 
005737 
001006 
016500 


104456 
001331 
036357 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001405 


104456 
001332 
036270 
011520 


104405 
005737 
001402 
004737 


104403 





177776 
017060 


017724 


002172 
000000 


000000 
000200 
000100 


000100 


002170 
017776 
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100$: 


112s: 


i25$: 


130$: 


140$: 


30$: 


MOV 
JSR 
BCS 


MOV 
ERRDF 


JSR 
CKLOOP 


ESCAPE 
TST 
BNE 
MOV 
ERRHRD 


ERRHRD 


ENDSEG 


TST 
BEQ 
JSR 


ENDSUB 


R4, TSDBCRS) 
PC ,CHKTSSR 
100$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


PC ,FATCHK 
SEG 
INTRECV 
12$ 


112 
TSSRCR5) ,RO 
ERRNO, T7NINT ,PKTSSR 


TSSRCRS>,R1 
#SSR,R2 


130$ 
ERRNO, T7SSR,PKTSSR 


FATFLG 
140$ 
PC ,CKDROP 





SEQ 164 


sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR —— a 


- WORD 

-WORD T7SSR 

-WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


CSEROF 
728 


TRAP CS$CLP1L 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
-WOR 10002$-. 
;DID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
;GET TSSR FOR ERROR REPORT 
TRAP CSERHRD 
-WORD 729 
.- WORD T7NINT 
-WORD PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
;IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
;DOES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 730 
-WORD T7SSR 
-WORD PKTSSR 
36666006 KK KCK END SEGMENT <cceeceeeeeee 
10002$: 
TRAP CSESEG 


sCHECK FATAL FLAG FOR SET 
sBR, IF NOT SET (OK) 
sDROP DEVICE IF INDICATED 


s///111/11//7 END SUBTEST //////////// 
L10064: 
CSESUB 


TRAP 
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TEST 7 


5916 
5917 
5918 
5919 
5920 


: BASIC PACKET PROTOCOL 


035560 


104402 


004737 
004737 


012700 
104441 
012704 
012703 
012764 
012763 


104404 
004737 
103405 
010001 


104455 
001333 
003550 
011506 
005037 
005037 
010465 
010365 
004737 
016501 
032701 
001006 


104455 
001334 
036270 
011520 
004737 


104406 


104410 
000056 
005737 
001004 





036640 
036566 


000000 


035640 
035702 
000010 
000010 


016470 


002170 
002172 
177776 
177776 
016744 
000000 
000200 


017724 


002172 
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000006 
000006 


3+ 
sTEST 7, SUBTEST 4 





SEQ 165 


‘ 

sCHECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN 
;THE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND 
sBEING EXECUTED AND ANOTHER “WC” COMMAND IS ATTEMPTED 


BGNSUB 


JSR PC,T7RT2 
JSR PC, T7RST 
SETPRI #PRIOO 


MOV #T7PACKET,R4 
MOV #T7PKT ,R3 


MOV #8. ,PKBCNTCR4) 
. MOV #8. ,PKBCNTCR3) 
$: 
BGNSEG 
JSR PC ,SOFINIT 
BCS 10$ 
MOV RO,R1 


ERRDF ERRNO, SFIERR,SFIMSG 


10$: CLR FATFLG 
CLR INTRECV 
MOV R4, TSDBCRS) 
MOV R3, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
BIT #SSR,R1 


15$ 
ERRDF ERRNO, T7SSR,PKTSSR 


JSR PC ,FATCHK 
15$: CKLOOP 


ESCAPE SEG 


TST INTRECV 
BNE 22$ 


ERRHRD ERRNO, T7NINT,PKTSSR 


TAAAAAAAAAAA = SUBTEST ///////////7/ 
4: 
TRAP C$BSUB 


sSET SECOND PACKET UP 
sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV #PRIOO ,RO 
TRAP C$SPRI 
sGET THE ADDRESS OF COMMAND PACKET 
sGET THE ADDRESS OF 2ND CMD PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>> >> 
TRAP CS$BSEG 

;D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR — 


CSEROF 

-WORD 731 
-WORD SFIERR 
-WORD SFIMSG 

;sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 

sSET THE PACKET ADDRESS 

sSECOND COMMAND PACKET 

sWAIT FOR SSR TO SET 

sGET CONTENTS OF TSSR REGISTER 

sCHECK FOR SSR (TSSR) SET 

sBR, IF SSR SET (GOOD) 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 732 
-WORD T7SSR 


-WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 

CSCLP1 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 


CSESCAPE 
10000$-. 


- WORD 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 





CZTKEBO TK25 FRT END FUNC #1 
TEST 7: 


5966 
5967 
5968 
5969 
5970 
S971 
5972 
5976 


5977 


5978 


5979 


5980 


BASIC 


035560 
035562 
035564 
035566 
035570 
035574 
035600 
035604 
035606 
035612 
035614 
035616 
035616 
035620 
035622 
035624 
035626 
035626 
035626 
035626 
035630 
035630 
035630 
025632 
035632 
035634 





PACKET PROTOCOL 


104456 
001335 
036357 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001404 


104456 
001336 


036270 
011520 


104405 


104403 


104432 
001056 


000000 
110200 
000100 


000100 
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22$: 


25$: 


30$: 


BEQ 
ERRHRD 


ENDSEG 


ENDSUB 


EXIT 


TSSRCRS),R1 
#SSRIRMR!ISC,R2 


30$ 
ERRNO, T7SSR,PKTSSR 


TST 






SEQ 166 

















TRAP CSERHRD 


WORD 733 
-WORD  T7NINT 
WORD PKTSSR 


;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
:IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sDOES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 


WORD 734 
WORD T7SSR 
WORD PKTSSR 


366K eee eee END SEGMENT <<ceeeeeeeeeee 
10000$: 


TRAP CSESEG 
s////1111//7/7 END SUBTEST //////////4/ 


L10065: 
TRAP CSESUB 
sALL DONE WITH THIS TEST 
TRAP CSEXIT 
-WORD L10061-. 














CZTKEBO TK2S5 FRT END FUNC #1 
TEST 7: BASIC PACKET PROTOCOL 


6007 025702 
6008 035702 
6009 035704 
6010 035706 
6011 035710 


6013 035712 
6014 035712 
6015 035714 
6016 035716 
6017 035720 


6019 035724 


6026 035744 
6027 036041 
6028 036123 


6030 036200 
6031 036270 
6032 036357 
6033 €36450 
6034 036537 


100204 
035650 
000000 
000010 


035662 
000000 
000016 
000000 


100204 
035712 
000000 
000010 


035724 


000000 


000000 
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3;* 
sLOCAL STORAGE FOR THIS TEST 


T7PACKET : 


BLKB 
WORD 


«WORD 
- WORD 
. WORD 


T7DATA: 


-WORD 
- WORD 
- WORD 
- WORD 


T7BFR: 


3* 


-BLKW 


10-<, - TUV2AE7> 


100204 
T7DATA 


;TEST DATA FOR SUBTEST FOUR 


3 
T7PKT: 


T7DTA: 


T7BUFR: .BLKW 


100204 
— 


T7BUFR 
0 


14. 
0,0 


3* 
sLOCAL TEXT MESSAGES FOR TEST 


T7MBF: .ASCIZ 
T7NBA: .ASCIZ 
T7NNBA: .ASCIZ 
T7SSRM: .ASCIZ 
T7SSR: .ASCIZ 
T7NINT: .ASCIZ 
T7INT: .ASCIZ 
TST7ID: .ASCIZ 

-EVEN 


sCOMMAND PACKET FOR TEST 

sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sCOMMAND PACKET FOR TEST 

sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 





SEQ 167 


‘Message Buffer Modified after MESSAGE BUFFER RELEASE Command’ 
‘NBA Not Clear After WRITE CHARACTERISTICS Command’ 
‘NBA Set After MESSAGE BUFFER RELEASE Command’ 


‘Contents Of TSSR Incorrect After Message Buffer Release’ 
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 


‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 


‘Basic Packet Protocol’ 





CZTKEBO TK2S FRT END FUNC @1 


TEST 7 


ces 





: BASIC PACKET PROTOCOL 


036640 
036640 
036644 
036650 
036654 
036660 
036662 
036666 
036672 
036674 
036700 
036702 
036704 
036710 
036712 
036712 
036712 


012701 
012721 


012701 


035640 
100204 
035650 


000010 
035662 


000016 


035662 


035702 
100204 
035712 


000010 
035724 


000016 


035724 
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3° 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


T7RST: 


3*¢ 


@T7PACKET,R1 - 
#100204, (R1)+ 
@T7DATA,C(R1)+ 
(R1)+ 
#8.,(R1)+ 
@T7BFR,CR1)+ 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;CLEAR 1ST LOC IN MESSAGE BUFFER 
sRETURN 


; 
sROUTINE TO RESTORE COMMAND PACKET #2 TO START-UP (DEFAULT) VALUES 
; 


g° 
T7RT2: 


@T7PKT,R1 
#100204, (R1)+ 
@T7DTA,CR1)+ 
CR1i)+ 
#8.,(R1)+ 
— 





sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sCLEAR 1ST LOC IN MESSAGE BUFFER 
sRETURN 

L10061: 


TRAP 








CSETST 








Ot re te eer ns 


CZTKEBO TK25 FRT END FUNC @1 
TEST 8: NON-TAPE MOTION COMMANDS 


6094 036714 

036714 
6095 036714 
6096 036720 
6097 036726 
6102 036732 


6133 037050 
6134 037054 


012737 


002170 
005672 
003100 
040272 
017232 
000002 


000000 
016470 


037520 
010152 


040324 
037450 


002170 
002172 
177776 
017060 
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002146 


002164 


3¢ 


SEQ 169 


-SBTTL TEST 8: NON-TAPE MOTION COMMANDS 


: 

sTHIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
sCOMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
;THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
sMESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
sVALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 


T8LOOP: 


38: 


4$: 


53: 


108: 


BGNTST 





FATFLG 
EPRT1,EPRTSW 
KTFLG 


@TST8ID,RO 
PC, TSTSETUP 
#2. ,LOOPCNT 


@PRIOO 
PC ,SOFINIT 
3$ 


RO,R1 
ERRNO, SFIERR ,SFIMSG 


@T8PK2 ,R4 
PC ,WRTCHR 


A$ 
ERRNO, WRTMSG , SFIMSG 


PC, TOREST 
@TBPACKET,R4 


T8:: 
sCLEAR FATAL ERROR FLAG 
;SET UP ERROR MESSAGE SWITCH 


sHOLD OFF KT11 


sASCII MESSAGE TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


TALAAAAAALAAA = SUBTEST //////////4/ 
8.1: 


TRAP C$BSUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV @PRIOO ,RO 

TRAP CsSPRI 


sD0 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR — R 


CSEROF 

-WORD 801 
-WORD SFIERR 
-WORD SFIMSG 

sWRITE CHARACTERISTICS PACKET 

sISSUE WRITE CHARACTERISTICS 

sBR, IF COMMAND ISSUED OK 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 802 
-WORD WRTMSG 
-WORD SFIMSG 


sSET UP PACKET FOR COMMAND 
sGET THE ADDRESS OF COMMAND PACKET 


g>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP Cs6SEG 


sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 








—_—_—_—_——_———$——$——— - 


SEQ 170 
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TEST 8: NON-TAPE MOTION COMMANDS 

6135 037056 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6139 037060 ERRDF ERRNO, T8SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
037060 104455 TRAP CSEROF 
037062 001443 «WORD 803 
037064 040014 - WORD T8SSR 
037066 011520 «WORD PKTSSR 

6140 037070 004737 017724 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6141 037074 15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
037074 104406 TRAP CSCLP1 

6142 037076 ESCAPE SEG sBY-PASS SUBTEST IF FATAL ERROR 
037076 104410 TRAP CSESCAPE 
037100 000074 -WOR 10000$-. 

6143 037102 005737 002172 TST INTRECV ;DID AN INTERRUPT OCCUR ? 

6144 037106 001004 BNE 22$ ;BRANCH IF YES 

6148 037110 ERRHRD ERRNO, T8NINT,PKTSSR 
037110 104456 TRAP CSERHRD 
037112 001444 -WORD 804 
037114 040144 -WORD T8NINT 
037116 011520 -WORD PKTSSR 

6149 037120 016501 000000 22$: MOV TSSRCRS),R1 ;GET THE CONTENTS OF TSSR 

6150 037124 012702 000200 MOV #SSR,R2 sEXPECTED CONTENTS OF TSSR 

6151 037130 032701 000100 BIT #OFL .R1 3IS OFF-LINE BIT SET ? 

6152 037134 001402 BEQ 25$ sBRANCH IF NOT OFF-LINE 

6153 027136 052702 000100 BIS #0FL .R2 ;SET OFF-LINE IN EXPECTED DATA 

6154 037142 020201 253: CMP R2,R1 ;DOES EXPECTED MATCH RECEIVED ? 

6155 037144 001404 BEQ 30$ sOKAY IF MATCH 

6159 037146 ERRHRD ERRNO, T8NBA,PKTSSR ;NBA NOT ZERO 
037146 104456 TRAP CSERHRD 
037150 001445 -WORD 805 
037152 037562 -WORD T8NBA 
037154 011520 -WORD PKTSSR 

6160 037156 30$: . 

6161 037156 004737 010354 35$: JSR PC ,.CKRAM sCHECK RAM TO MEMORY 

6162 037162 103405 BCS 59$ ;RAM OK GO ON 

6166 037164 ERRHRD ERRNO,PKTRAM,RAMERR ;THEY DON’T MATCH 
037164 104456 TRAP CSERHRD 
037166 001446 - WORD 806 
037170 004643 -WORD PKTRAM 
037172 016204 -WORD RAMERR 

6167 037174 ENDSEG 36404000 00000"¢ END SEGMENT <eeeeeeeeeeee 
037174 10000$: 
037174 104405 TRAP CSESFG 

6168 

6169 

6170 037176 59$: ENDSUB g\ANNANNAANNAN END SUBTEST \A\AAANAANAAAA 
037176 L10067: 

. 037176 104403 TRAP CSESUB 

6171 

6172 037200 005737 002170 TST FATFLG sANY FATAL ERRORS ? 

6173 037204 001402 BEQ 60$ ;BRANCH IF NOT 

6174 037206 004737 017776 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

6175 037212 60$: 

a nn a RR EN A a NE A SR A SS ESE SE RAEN 














LS A AE 
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SEQ 171 


TEST 8: NON-TAPE MOTION COMMANDS 

6177 3+ 

6178 3 

6179 sTEST 8, SUSTEST 2 

6180 3 

6181 sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 

6182 sINITIALIZE COMMAND TO BE REJECTED 

6183 3 

6184 a- 

6185 

6186 pedis | BGNSUB ALAA AAA a SUBTEST S//S/S///////7/ 

8.2: 

_— 037212 104402 TRAP C$BSuUB 

6188 037214 SETPRI #PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
037214 012700 000000 MOV #PRIOO,RO 
037220 104441 TRAP C$SPRI 

6189 037222 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
037222 104404 TRAP CS$BSEG 

6190 

6191 

6192 037224 004737 016470 JSR PC ,SOF INIT 3D0 SOFT INIT OF CONTROLLER 

6193 037230 103405 BCS 3$ ;BR IF SOFT INIT = OK 

6197 037232 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6198 027234 ERRDF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
037234 104455 TRAP CSERDF 
037236 001447 WORD 807 
037240 003550 - WORD SFIERR 
037242 011506 WORD SFIMSG 

6199 037244 3$: 

6200 037244 012704 037520 MOV ST8PK2 ,R4 sWRITE CHARACTERISTICS PACET 

6201 037250 004737 010152 JSR PC,WRTCHR sISSUVE WRITE CHARACTERISTICS 

6202 037254 103404 BCS 4$ 3BR, IF COMMAND ISSUED OK 

6206 037256 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
037256 104456 TRAP CSERHRD 
037260 001450 - WORD 808 
037262 004754 .WORD WRTMSG 
037264 011506 WORD SFIMSG 

6207 037266 4$: 

6208 037266 004737 040324 JSR PC, T8REST sSET UP PACKET FOR COMMAND 

6209 yo da de 012704 037450 - MOV #TSPACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 

6210 2 t 

6211 037276 005037 002172 10$: CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 

6212 037302 052714 007400 BIS #P .MODE,(R4) sNON-ZERO COMMAND MODE BITS 

6213 037306 010465 177776 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS 

6214 037312 004737 017060 JSR PC ,CHKTSSR ;WAIT FOR SSR TO SET 

6215 037316 103405 BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 

6216 037320 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6220 037322 ERRDF ERRNO, T8SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
037322 104455 TRAP CSERDF 
037324 001451 . WORD 809 
037326 040014 -WORD T8SSR 
037330 011520 . WORD PKTSSR 

6221 037332 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
037332 104406 TRAP CSCLP1L 

6222 037334 ESCAPE SEG ;BY-PASS CHECKS IF FATAL ERROR 
037334 104410 TRAP CSESCAPE 
037526 000074 WORD 10000$-. 


























co 
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TEST 8: NON-TAPE MOTION COMMANDS 

6223 037340 005737 002172 TST INTRECV sDID AN INTERRUPT OCCUR ? 

6224 037344 001004 BNE 223 sBRANCH IF YES 

6228 037346 ERRHRD ERRNO, T8NINT,PKTSSR 


037346 104456 TRAP CSERHRD 
037350 001452 «WORD 810 
037352 040144 «WORD ‘T8NINT 
037354 011520 ‘ -WORD PKTSSR 

6229 037356 016501 000000 22$: MOV TSSRCRS),R1 sGET THE CONTENTS OF TSSR 

6230 037362 012702 100206 MOV #SC!SSR!TSREJ,R2 sEXPECTED CONTENTS OF TSSR 

6231 037366 032701 000100 BiT #OFL ,R1 3IS OFF-LINE BIT SET ? 

6232 037372 001402 BEQ 25$ sBRANCH IF NOT OFF-LINE 

6233 037374 052702 000100 BIS #0FL ,R2 sSET OFF-LINE IN EXPECTED DATA 

6234 037400 020201 25$: CMP R2,R1 sDOES EXPECTED MATCH RECEIVED ? 

6235 037402 001404 BEQ 30$ sOKAY IF MATCH 

6239 037404 ERRHRD ERRNO, T82REJ,PKTSSR sCOMMAND NOT REJECTED 
037404 104456 TRAP CSERHRD 
037406 001453 “oo «WORD 811 
037410 037622 - WORD T82REJ 
037412. 011520 -WORD PKTSSR 

6240 037414 30$: 

6241 037414 004737 010354 35$: JSR PC ,CKRAM ;CHECK RAM TO MEMORY 

6242 037420 103405 BCS 59$ :RAM OK GO ON 

6246 037422 ERRHRD ERRNO,PKTRAM,RAMERR ;THEY DON'T MATCH 
027422 104456 TRAP CSERHRD 
037424 001454 ; -WORD 812 
037426 004643 -WORD PKTRAM 
037430 016204 -WORD RAMERR 

6247 037432 ENDSEG 366060060 END SEGMENT <ceeeeeeeeeece 
037432 10000$: 

— 037432 104405 TRAP CSESEG 

2 

6249 037434 59$: ENDSUB s\\NANANANAANN END SUBTEST \AA\AAAANANAA 
037434 L10070: 
037434 104403 TRAP CSESUB 














CZTKEBO TK25 FRT END FUNC @1 


TEST 


6251 037436 
037436 
037440 

6252 

6253 


6258 037442 
6260 037450 
6261 037450 
6262 037452 
6263 037454 
6264 037456 


6266 037460 
6267 037460 
6268 037462 
6269 037464 
6270 037466 


6272 037472 


6276 037512 
6278 037520 
6279 037520 
6289 037522 
6281 037524 
6282 037526 


6284 037530 
6285 037530 
6286 037532 
6287 037534 
6288 037536 


6290 037542 


6298 037562 
6299 037622 
6300 037703 
6301 037733 
6302 040014 
6303 040070 
6304 040144 
6305 040222 
6306 040272 


a RR RR RE SE EE EN A RE A NESE me NY 


104432 
000770 


037472 
000000 
000016 
000000 


100204 
037530 
000000 
000010 


037542 
000000 
000016 
000000 


000000 


000000 


111 
111 
124 
124 
156 
156 
160 
143 
156 





EXIT 
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8: NON-TAPE MOTION COMMANDS 


TST 


3*¢ 
sLOCAL STORAGE FOR THIS TEST 


T8PACKET: 
T8DATA: 


TSBFR: 


T8PK2: 
T8DTA: 


T8BF 2: 


BLKB 


10-<.-TUV2AE7> 


100204 
T8DATA 


10-<.-TUV2AE7> 


100204 
T8DTA 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 


T8NBA: 
T82REJ: 
T83REJ: 
T84REU: 
T8SSR: 
T8SR2: 
T8NINT : 
T8TSBA: 
TST8ID: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-EVEN 





SEQ 173 
sALL DONE THIS TEST 
TRAP CSEXIT 
-WORD L10066-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sCOMMAND PACKET FOR TEST 

sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


‘INITIALIZE Command Not Accepted’ 

‘INITIALIZE Not Rejected With Non-Zero Mode Field’ 
‘GET STATUS Not Accepted’ 

‘GET STATUS Not Rejected With Non-Zero Mode Field’ 
‘Contents of TSSR Incorrect After INITIALIZE’ 
‘Contents of TSSR Incorrect After CET STATUS’ 


‘Expected Interrupt Not Received On INITIALIZE’ 
‘Incorrect TSBA Address After INITIALIZE’ 
‘Non-Tape Motion Commands’ 





I RS ES A RR AR RS EY 
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TEST 8: NON-TAPE MOTION COMMANDS 

6310 

6311 3+ 

6312 : 

6313 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

6314 sINITIALIZE COMMAND 

6315 ; 

6316 3° 

6317 

6318 040324 T8REST: 

6319 040324 SAVREG sSAVE THE REGISTERS 

6320 040330 012701 037450 MOV #TSPACKET,R1 sSTART OF THE PACKET 

6321 040334 012721 100213 MOV #100213, (R1)+ sINITIALIZE WITH ACK, IE 

6322 040340 005021 CLR (R1)+ sADDRESS OF CHAR DATA BLOCK 

6323 040342 005021 CLR CR1)+ sEXTENDED ADDRESS 

6324 040344 005021 CLR CR1)+ ;SIZE OF DATA BLOCK IN BYTES 

6325 040346 005021 CLR C(R1i)+ sADDRESS OF MESSAGE BUFFER 

6326 040350 005021 CLR CR1)+ 

6327 040352 005021 CLR C(R1i)+ ;LENGTH OF MESSAGE BUFFER 

6328 040354 005021 CLR CR1)+ 

6329 040356 005011 CLR CR1) 

6330 040360 005037 037472 CLR T8BFR ;CLEAR 1ST LOC IN MESSAGE BUFFER 

6331 040364 000207 RTS PC sRETURN 

6532 3+ 

6333 8 

6334 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

6335 ;GET STATUS COMMAND 

6336 3 

6337 s- 

6338 

6339 040366 T8RT2: 

6340 040366 SAVREG sSAVE THE REGISTERS 

6341 040372 012701 037450 MOV #T8PACKET,R1 sSTART OF THE PACKET 

6342 040376 012721 100217 MOV #100217, (R1)+ ;GET STATUS WITH ACK, IE 

6343 040402 005021 CLR (R1)+ sADDRESS OF CHAR DATA BLOCK 

6344 040404 005021 CLR (R1i)+ sEXTENDED ADDRESS 

6345 040406 005021 CLR CR1)+ ;SIZE OF DATA BLOCK IN BYTES 

6346 040410 005021 CLR (R1i)+ sADDRESS OF MESSAGE BUFFER 

6347 040412 005021 CLR C(R1i)+ 

6348 040414 005021 CLR C(R1i)+ ;LENGTH OF MESSAGE BUFFER 

6349 040416 005021 CLR (R1)+ 

6350 040420 005011 CLR (R1) 

6351 040422 005037 037472 CLR T8BFR ;CLEAR 1ST LOC IN MESSAGE BUFFER 

6352 040426 000207 RTS PC ;RETURN 

6353 040430 ENDTST 

040430 L10066: 
040430 104401 TRAP CSETST 








eee ee ee SaaS... ..6...dLmL 


CZTKEBO TK25 FRT END FUNC @1 





TEST 9: DMA MEMORY ADDRESSING 


6382 040432 

040432 
6383 040432 
6384 040436 
6385 040444 
6390 040450 
6391 040454 
6392 040460 
6393 040466 


005037 
012737 
005037 
012700 
004737 
012737 
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-SBTTL TEST 9: DMA MEMORY ADDRESSING 


tee 
; TEST 1 
TEST DESCRIPTION 


This test verifies that the controller can properly address and 
access all available CPU memory (other than that occupied by the 
diagnostic and diagnostic supervisor code) for both reading (DATI) 
and writing (DATO). Verified are the LSI-11 Bus drivers for all 
available address lines. Up to this point only 16 bits have been 
used for DMA transfers. 


TEST STEPS 
REPEAT FROM 1 TO LOOPCNT 
BEGIN 
Do Subtest 1 - Verify GET STATUS selected locations 
Do Subtest 2 - Verify message packets selected locations 


Do Subtest 3 - Verify Characteristic data selected locations 
a Subtest 4 - Verify NXM to selected invalid addresses 


BGNTST - 
002170 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
005672 002146 MOV #EPRT1,EPRTSW sSET UP ERROR MESSAGE SWITCH 
003100 CLR KTFLG sHOLD OFF KT1i1 
042100 MOV #TST9ID,RO sASCII MESSAGE TO IDENTIFY TEST 
017232 JSR PC, TSTSETUP sD0 INITIAL TEST SETUP 
000002 002164 MOV #2. ,LOOPCNT sPERFORM 2 ITERATIONS 
T9LOOP : sLOOP ON TEST LABEL 
. 








CZTKEBO TK25 FRT END FUNC @1 
TEST 9: SUBTEST 1: GET STATUS SELECTED LOCATIONS 


6396 
6397 
6398 
6399 


6446 


040466 
040466 
040466 


040470 
040474 


040500 
040504 
040506 
040506 
040510 
040510 
040512 
040° i4 
040516 


040520 
040520 
040524 
040530 
040534 
040540 
040544 
040560 


104402 


012700 
004737 


004737 
103405 


010001 


104455 
001605 
003550 
011506 


012704 
004737 
005037 
010465 
004737 


103405 


125252 
020216 


016470 


041670 
043436 
003102 
177776 
017060 
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-SBTTL TEST 9: SUBTEST 1: GET STATUS SELECTED LOCATIONS 
3++ 
; TEST 9: SUBTEST 1: 
SUBTEST DESCRIPTION: 


This subtest verifies the controller can fetch a get status 
command from all available memory locations. 

Two word blocks are tested one at a time by first setting 

all available memory to a background pattern of 125252. 

A Get Status command is then executed to various addresses in 
each available memory 4k word block. The various addresses 

are determined by floating a 1 then a 0 through the address bits. 


TEST STEPS: 


BEGIN 
Fill Memory with background pattern of 125252 
Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a message buffer 


“me SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


Get a valid modulo-4 test address 
_ Do a GET STATUS command from the test address 
END 


BGNSUB s//////////4/ BEGIN SUBTEST ////////// 
T9.1: 
TRAP C$BSUB 
sFill Memory with background pattern of 125252 


MOV #125252,R0 ;BACKGROUND DATA 
JSR PC ,FILLMEM sFILL MEMORY WITH BACKGROUND DATA 
sWrite to TSSR to soft initialize 

JSR PC ,SOFINIT 300 SOFT INIT OF CONTROLLER 

BCS 15$ ;BR IF SOFT INIT = OK 

NEXT .ERRNO 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRDF  ERRNO,SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 
«WORD 901 
-WORD SFIERR 


-WORD SFIMSG 
me a WRITE CHARACTERISTICS to setup a message buffer 
15$: 


MOV @TOPACKET,R4 sGET THE ADDRESS OF COMMAND PACKET 
JSR PC, TOSWRT sRESTORE PACKET TO STARTING VALUES 
CLR KTENABLE sTURN OFF KT-11 

MOV R4,TSDBCRS) sSET THE PACKET ADDRESS 

JSR PC .CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 17$ 

BCS 20$ sBR IF SSR SET IN CHKTSSR 








CZTKEBO TK25 FRT END FUNC #1 


6447 
6448 
6449 


040562 
040564 
040564 
040564 
040566 
040570 
040572 


010001 


104455 
001606 
042202 
011520 


005037 
005037 
012702 


011550 
104406 


020227 
103002 
000137 
005737 
003012 
005737 
001407 
012737 
012702 
000137 
004737 


002170 
041740 
041744 


003102 


041740 


177776 
177774 
000001 
042746 


041734 
041732 
043504 
177774 


020070 
177776 
017060 


042076 


040610 
041740 


003100 
000001 
041744 
040610 
020070 
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TEST 9: SUBTEST 1: GET STATUS SELECTED LOCATIONS 


003102 


041740 


17$: 


MOV RO,R1 
NEXT .ERRNO 
ERRDF 


ERRNO, TOWRTSSR ,PKTSSR 





SEQ 177 


sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 902 
-WORD TOWRTSSR 
-WORD PKTSSR 


iVerify a Get Status can be fetched from each address 


sGet a valid modulo-4 test address 


;Do a GE 
20$: 


T91LO0P: 


25$: 


32$: 


40$: 
65$: 


70$: 


80$: 


T STATUS command from the test address 


ERRNO, T9GETSSR ,PKTGETS 


CLR FATFLG 
CLR TOKT 

V #T9BLK ,R2 
CLR KTENABLE 
MOV (R2)+,R1 
CLR RO 
TST TOKT 
BEQ 25$ 
MOV -2(R2),RO 
BIC #tC<A1716>,RO 
MOV #1,KTENABLE 
JSR PC, T9CONVERT 
BCC 65$ 
MOV T9LOADD,, R4 
MOV T9HIADD , R3 
JSR PC, T9SETGET 
BIC #tC<A1716>,R3 
BIS R3,R4 
JSR PC ,KTOFF 
MOV R4, TSOBCRS) 
JSR PC ,CHKTSSR 
FORCERROR 32$ 
BCS 40$ 
MOV RO,R1 
NEXT .ERRNO 
ERRDF 
CKLOOP 
FORCEXIT 80$ 
CMP R2,#T9TBE 
BHIS 70$ 
JMP T91L00P 
TST TOKT 
BGT 80$ 
TST KTFLG 
BEQ 80$ 
MOV #1,T9KT 
MOV @T9BLK ,R2 
JMP T91L00P 
JSR PC ,KTOFF 


3BR 
;SET SWITCH 
;D0 ABOVE 28K TESTING 


sCLEAR FATAL ERROR FLAG 
sTEST ABOVE 28K SWITCH 
sPOINT TO TEST PATTERN TABLE 


sTURN OFF ABOVE 28K JEST FLAG 

sGET TEST PATTERN ADDRESS 

sASSUME NO TEST ABOVE 28K 

sTEST ABOVE 28K THIS TIME? 

;BR IF NO 

sGET TEST PATTERN AGAIN 

sSAVE 18 BIT ADDRESS ONLY 

sTURN ON ABOVE 28K TEST FLAG 
sCONVERT TEST PATTERN TO TEST ADORESS 
sBR IF INVALID PACKET ADDRESS 

sCOPY CURRENT PACKET LOW ADDRESS 
sCOPY CURRENT PACKET HIGH ADDRESS 
sSETUP CURRENT PACKET TO GET STATUS 
sSAVE ADDRESS BITS 17+16 

sSETUP 18 BIT PACKET ADDRESS 

sTURN OFF KT-11 

sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


sBR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 903 
-WORD T9GETSSR 

PKTGETS 


- WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


sDONE ALL TSTBLK TEST PATTERNS? 
:BR IF YES 


;D0 ANOTHER MODULO- 4 ADDRESS 


sDONE ABOVE 28K TESTING T00? 

:BR IF YES 

sANY MEMORY ABOVE 28K ON SYSTEM? 
IF NO 

sRESET TEST PATTERN TABLE 


sTURN OFF KT11 








CZTKEBO TK25 FRT END FUNC #1 
TEST 9: SUBTEST 1: GET STATUS SELECTED LOCATIONS 


6495 041022 
041022 
041022 

6496 041024 

6497 041030 

6498 041032 

6499 041036 

6500 


104403 
005737 
001402 
004737 


002170 
017776 
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ENDSUB sN\\NNANANANNNN END SUBTEST \AAAAANAAANAN 
L10072: 
TRAP CsESuB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 100$ ;BRANCH IF NOT 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


100$: 





CZTKEBO TK25 FRT END FUNC #1 
TEST 9: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 


6535 041036 
041036 
041036 


6538 041040 
6539 041044 


6542 041050 
6543 041054 
6544 041056 
6545 041056 
6546 041060 
041060 
041062 
012064 
041066 


6549 041070 
6550 041070 
6551 041074 
6552 041100 





125252 
020216 


016470 


041670 
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-SBTTL TEST 9: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
3+4 
; TEST 9: SUBTEST 2: 
SUBTEST DESCRIPTION: 


This subtest verifies the controller can deposit message packets 
to all available memory locations. 

First all availeble memory is set to a background pattern 

of 125252. 

Write Characteristics commands are then executed with message 
buffer addresses set to various addresses in each available 
memory location. 

The various addresses are determined by floating a 1 then a 0 
through the address bits. 


TEST STEPS: 


BEGIN 
Fill Memory with background pattern of 125252 
Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a message buffer to compare 


wy * tes SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 


Get a valid modulo-4 test address 
Set the packet message buffer to the TEST ADDRESS 
Do a WRITE CHARACTERISTICS 
_ Restore the test message buffer to background pattern 
END 


oe @f es Ge Gs Ge GF Gs Gs Gs os Ge GH Be Ge Gs Gs Gs Gs Gs Ge Os Gs os Os os Gs Oe oe 


BGNSUB 3///////1///// BEGIN SUBTEST ////////// 
T9.2: 
TRAP C$BSUB 
sFill Memory with background pattern of 125252 


MOV #125252,R0 sBACKGROUND DATA 
JSR PC ,FILLMEM sFILL MEMORY WITH BACKGROUND DATA 
sWrite to TSSR to soft initialize 
JSR PC ,SOFINIT 300 SOFT INIT OF CONTROLLER 
BCS 15$ 3;BR IF SOFT INIT = OK 
NEXT .ERRNO 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
TRAP CSERDOF 
-WORD 904 
-WORD SFIERR 
-WORD SFIMSG 
sDo a WRITE CHARACTERISTICS to setup a message buffer to compare 
15$: 
MOV STOPACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC, TOSWRT ;SET PACKET TO WRITE CHARACTERISTICS 
JSR PC ,KTOFF ;TURN OFF KT-11 





CZTKEBO TK25 FRT END FUNC @1 


6553 041104 010465 
6554 041110 004737 


6556 041130 103405 
6557 041132 010001 


041134 104455 
041136 001611 
041140 042202 
041142 011520 


6564 041144 005037 
6565 041150 012703 


6567 041154 012301 
6568 041156 010100 
6569 041160 042700 
6570 041164 042701 
6571 041170 004737 
6572 041174 103402 
6573 041176 000137 
6574 041202 012704 
6575 041206 004737 
6576 041212 013737 
6577 041220 013737 
6578 041226 004737 
6579 041232 010465 
6580 041236 004737 


6582 041256 103405 
6583 041260 010001 


041262 104455 
041264 001612 
041266 042202 
041270 011520 


041272 104406 


6589 041304 020327 
6590 041310 103002 
6591 041312 000137 
6592 041316 004737 


041322 104403 
6594 041324 005737 
6595 041330 001402 
6596 041332 004737 


177776 
017060 


002170 
041744 


177774 


042076 


041154 
020070 


002170 
017776 
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TEST 9: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 


041700 
041702 





















MOV R4, TSDBC RS) sSET THE PACKET ADDRESS 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 17$ 
Bcs 20$ ;BR IF SSR SET IN CHKTSSR 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
17$: ERRDF ERRNO, TOWRTSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 905 
-WORD TOWRTSSR 
-WORD PKTSSR 
;Get a valid modulo-4 test address 
;Set the packet mess buffer to the test address 
:Do a WRITE CHARACTERISTICS 
208: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
MOV ST9BLK ,R3 sPOINT TO TEST PATTERN TABLE 
T92LO00P: 
MOV (R3)+¢,R1 ;GET TEST PATTERN ADDRESS 
MOV R1,RO ;GET ADDRESS ALL “18 BITS” 
BIC #177774,RO sLEAVE ONLY A1L7 AND A16 
BIC #1,R1 sALWAYS ON A WORD BOUNDRY 
JSR PC ,T9CT2 sCONVERT TEST PATTERN TO TEST ADDRESS 
BCS 25$ 3;BR IF VALID MESSAGE BUFFER ADDRESS 
JMP 150$ ;GET ANOTHER TEST PATTERN TO TRY 
25%: MOV #TOPACKET,R4 3SET THE COMMAND PACKET ADDRESS 
JSR PC, T9OSWRT sSETUP TOPACKET TO WRITE CHAR. 
MOV TOLOADD, T9DATA ;SETUP LOW ORDER MESSAGE BUFFER ADD. 
MOV TOHIADD, T9DATA+2 sSETUP HIGH ORDER MESSAGE BUFFER ADD. 
JSR PC .KTOFF sTURN OFF KT-11 
MOV R4, TSOBCRS ) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 32$ 
BcS 50$ ;BR IF SSR SET IN CHKTSSR 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
32: ERRDF ERRNO, TOWRTSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 906 
-WORD TOWRTSSR 
-WORD PKTSSR 
50$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 
1508: 
FORCEXIT 160$ 
CMP R3, @T9TBE sDONE ALL TST9BLK TEST PATTERNS? 
BHIS 160$ ;BR IF YES 
JMP T92L00P 3D0 ANOTHER MODULO- 4 ADDRESS 
160$: JSR PC .KTOFF sTURN OFF KT11 
ENDOSUB s\ANANAANANANN END SUBTEST \ANANAAAAANAN 
L10073: 
TRAP CsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 180$ sBRANCH IF NOT 
o- JSR PC ,CKDROP sTRY TO DROP THE UNIT 
180$: 


qa ao» 


CZTKEBO TK25 FRT END FUNC @1 
TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


a 


6632 041336 
041336 
041336 


6635 041340 
6636 041344 


6639 041350 
6640 041354 
6641 041356 
6642 041356 
6643 041360 
041360 
041362 
041364 
041366 


6646 041370 
6647 041374 
6648 041400 
6649 041404 





005037 
005037 
012703 


125252 
020216 


016470 


002170 
041740 
041744 
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-SBTTL TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
3*¢ 
; TEST 9: SUBTEST 3: 
; 
SUBTEST DESCRIPTION: 


This subtest verifies the controller can fetch ea 

Write Characteristics date block from all aveileble 
memory locations. 

First ell aveileble memory is set to a background 
pattern of 125252. 

Then Write Characteristics commands are executed with 
cheracteristic dete blocks at various memory addresses. 
The various memory addresses are determined by floating 
e 1 then a 0 through the address bits. 


’ 
8 

H 

: 

’ 

$ 

: 

: 

: 

’ 

$ 

3 

; TEST STEPS: 

: 

F BEGIN 

: Fill Memory with background pattern of 125252 
3 Write to TSSR to soft initialize 

: 
; 
: 
3 
: 
: 
H 
: 
; 
: 
ge 


REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 


BEGIN 
Get a valid test address 
Set the test packet characteristics date pointer to the 
test address. 
Store expected characteristic date in test address block 
_— Do a WRITE CHARACTERISTIC command 
END 


BGNSUB 34//////////4/ BEGIN SUBTEST ////////7// 
79.3: 
TRAP Cs8SUB 


sFill Memory with ve pattern of 125252 
MOV #125252,R0 ;BACKGROUND DATA 


JSR PC ,FILLMEM sFILL MEMORY WITH BACKGROUND DATA 
sWrite to TSSR to soft initialize 

JSR PC ,SOFINIT 3:00 SOFT INIT OF CONTROLLER 

bcs 20% 3BR IF SOFT INIT = OK 

NEXT .ERRNO 

MOV sSAVE CONTENTS OF TSSR 


RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR sean yaa 


CsEROF 
-WORD 907 
-WORD SFIERR 
-WORD SFIMSG 


:Get ea valid test address 


208: CLR FATFLG sCLEAR FATAL ERROR FLAG 

CLR TOKT sTEST ABOVE 28K SWITCH 

MOV @TOBLK ,R3 sPOINT TO TEST PATTERN TABLE 
T93LOOP: 


Se es 
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TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 





SEQ 182 


ro 


6650 041404 005037 003102 CLR KTENABLE sTURN OFF ABOVE 28K TEST FLAG 

6651 041410 012301 MOV (R3)+,R1 ;GET TEST PATTERN ADDRESS 

6652 041412 010100 MOV R1,RO sGET ADDRESS AIL °18 BITS” 

6653 041414 042700 177774 BIC #177774,R0 sLEAVE ONLY A17 AND Ai16 

6654 041420 042701 000003 BIC @3,R1 3GET RID OF A17 AND A16 

6655 041424 005737 041740 TST TOKT sTEST ABOVE 28K THIS TIME? 

6656 041430 001407 BEQ 25% :;8R IF NO 

6657 041432 016300 177776 MOV -2(R3),RO sGET TEST PATTERN AGAIN 

6658 041436 042700 177774 BIC #tC<A1716>,RO sSAVE 18 BIT ADDRESS ONLY 

6659 041442 012737 000001 003102 MOV #1, KTENABLE sTURN ON ABOVE 28K TEST FLAG 

6660 041450 004737 042746 253: JSR PC, TSCONVERT sCONVERT TEST PATTERN TO TEST ADORESS 

6661 041454 103402 BCS 30$ 3BR IF VALID TEST ADDRESS 

6662 041456 000137 041560 JMP 60$ sGET NEXT TEST PATTERN 

6663 ;Set the test packet a * alia date pointer to the test eddress 

6664 041462 012704 041670 30$: MOV @TOPACKET,R sGET THE ADDRESS OF COMMAND PACKET 

6665 041466 004737 043436 JSR PC, TOSWRT ;RESTORE PACKET TO STARTING VALUES 

6666 041472 013764 041734 000002 MOV TOLOADD, PKLOWCR4 ) sSTORE CHAR. DATA PTR LOW ADDRESS 

6667 041500 013764 041732 000004 MOV TOHIADD , PKHICR4) sSTORE CHAR. DATA PTR HIGH ADDRESS 

6668 041506 004737 043546 JSR PC, TOCHAR sSTORE EXPECTED DATA IN DATA BLOCK 

6669 :Do a WRITE CHARACTERISTIC command 

6670 041512 004737 020070 JSR KTOFF sTURN OFF KT-11 

6671 041516 010465 177776 MOV R4, TSDBCRS) sSET THE PACKET ADORESS TO EXECUTE 

6672 041522 004737 017060 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

6673 041526 FORCERROR 32$ 

6674 041542 103405 6cs 40$ ;68R IF SSR SET IN CHKTSSR 

6675 041544 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6676 041546 NEXT .ERRNO 

6677 041546 32%: ERRDF ERRNO, TOWRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
041546 104455 TRAP CSEROF 
041550 001614 «WORD 908 
041552 042202 -WORD TOWRTSSR 
041554 011520 -WORD PKTSSR 

6678 041556 40$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
041556 104406 TRAP CsCi Pi 

6679 041560 60%: 

6680 041560 020327 042076 CMP R3, @TOTBE sDONE ALL TSTBLK TEST PATTERNS? 

6681 041564 103002 BHIS 658 ;BR IF YES 

6682 041566 000137 041404 JMP T93L00P 300 ANOTHER MODULO- 4 ADDRESS 

6683 041572 005737 041740 65$: TST TOKT sDONE ABOVE 28K TESTING TOO? 

6684 041576 003012 BGT 70$ 3BR IF YES 

6685 041600 005737 003100 TST KTFLG sANY MEMORY ABOVE 28K ON SYSTEM? 

6686 041604 001407 BEQ 70% 3BR IF NO 

6687 041606 012737 000001 041740 MOV #1. THT 3SET SWITCH 

6688 041614 012703 041744 MOV @T9BLK RS sRESET TEST PATTERN TABLE 

6689 041620 000137 041404 JMP T93L 00P 300 ABOVE 28K TESTING 

6690 041624 004737 020070 708: JSR PC .KTOFF sTURN OFF KTii 

6691 041630 ENDSUB sNANNNANANANAN END SUBTEST \ANAANAAAAN 
041630 L10074: 
041630 104403 TRAP Csesus 

6692 041632 005737 002170 TST FATFLG sANY FATAL ERRORS ? 

6693 041636 001402 BEQ 75% sBRANCH IF NOT 

6694 041640 004737 017776 JSR PC ,CKDROP sTRY TO DROP THE UNIT 

6695 041644 7538: 

6696 041644 004737 017200 1008: JSR PC. TSTLOOP sSHOULD WE DO ITERATIONS? 

6697 041650 103002 ecc 1058 3;BR IF NO 

6698 041652 000137 040466 JP T9LOOP 3L00P UNTIL ITERATION COUNT DONE 

6699 041656 1058: 








et ee 
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TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 

6700 041656 004737 020070 JSR PC ,KTOFF sTURN OFF MEMORY MANAGEMENT 

6701 041662 EXIT TST sALL DONE THIS TEST 

041662 104432 TRAP CSEXIT 
041664 001724 «WORD 1L10071-. 

6702 

6703 

6704 3° 

6705 sLOCAL STORAGE FOR THIS TEST 

6706 ge 

6707 

6709 041666 -BLKB 10-<, -TUV2AE7> 

6711 041670 TOPACKET: sCOMMAND PACKET FOR TEST 

6712 041670 100004 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 

6713 041672 041700 WORD TODATA sADDRESS OF CHARACTERISTICS BLOCK 

6714 041674 000000 -WORD 0 

esta 041676 000010 «WORD 8. sSTARTING VALUE OF BLOCK SIZE 

6717 041700 TODATA: sCHARACTERISTICS DATA BLOCK 

6718 041700 041712 .~ WORD TOBFR ;LOW ADDRESS OF MESSAGE BUFFER 

6719 041702 000000 «WORD O sHIGH ORDER OF MESSAGE BUFFER 

6720 041704 000016 ; - WORD 14. sLENGTH OF MESSAGE BUFFER 

Seas 041706 000000 000000 -WORD 0,0 

6 

th 041712 TOBFR: .BLKW 8. sMESSAGE BUFFER 

6725 041732 000000 TOHIADD: -WORD O sHIGH ADDRESS 

6726 041734 000000 TOLOADD: .- WORD 0 ;LOW ADDRESS 

6727 041736 000000 TOPAR6: .WORD 0 sADDR. S IN PAR FORMAT 

6728 041740 000000 TOKT: -WORD 0O ;TEST ABOVE 28K SWITCH 

Hh 34 041742 000000 T94TST: .WORD 0 sADDRESS TEST BIT 

6 3¢ 

6731 8 

6732 :TABLE OF ADDRESSES 

6733 H 

6734 3° 

6735 041744 000001 TOBLK: .WORD 000001 

6736 041746 000002 -WORD 000002 

6737 041750 000003 -WORD 000003 

6738 041752 000005 . WORD 000005 

6739 041754 000006 -WORD 000006 

6740 041756 000007 -WORD 000007 

6741 041760 0O00011 -WORD OQOOO11 

6742 041762 000012 -WORD 000012 

6743 041764 000013 WORD 000013 

6744 041766 000021 «WORD 000021 

6745 041770 000022 -WORD 000022 

6746 041772 000023 -WORD 000023 

6747 041774 000041 -WORD 000041 

6748 041776 000042 -WORD 000042 

6749 042000 000043 -WORD 000043 

6750 042002 000101 -WORD 000101 

6751 042004 000102 «WORD 000102 

6752 042006 000103 WORD 000103 

6753 042010 000201 -WORD 000201 

6754 042012 000202 -WORD 000202 

6755 042014 000203 «WORD 000203 

6756 042016 000401 -WORD 000401 








CZTKEBO 


TEST 9: 


6757 
6758 
6759 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 
6778 
6779 
6780 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 
6791 
6792 





TK25 FRT END FUNC @1 
SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


042020 
042022 
042024 
042026 








TOTBE: 


a 
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-WORD 000402 
-WORD 000403 
-WORD 001001 
-WORD 001002 
-WORD 001003 
-WORD 002001 
-WORD 002002 
«WORD 002003 
-WORD 004001 
-WORD 004002 
-WORD 004003 
-WORD 010001 
-WORD 010002 
-WORD 010003 
-WORD 020001 
-WORD 020002 
-WORD 020003 
-WORD 040001 
-WORD 040002 
-WORD 040003 
-WORD 100001 
-WORD 100002 
-WORD 100003 
- WORD 177777 


3? 
sLOCAL TEXT MESSAGES FOR TEST 


TST9ID: 


-ASCIZ 


TOGETSSR: 
TOWRTSSR: 
TOMSGBUF : 


TOBKGND- 
TONINT: 
T9ODPR: 
TONXM: 


4SCIZ 


-EVEN 


‘DMA Memory ape 

-ASCIZ ‘Contents of TSSR Incorrect After GET STATUS’ 

-ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 

-ASCIZ ‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS: 
-ASCIZ ‘Background Pattern Disturbed By WRITE CHARACTERISTICS’ 

‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 

-ASCIZ ‘Write Characteristic data in ram does not match expected’ 

-ASCIZ ‘TSSR NXM bit failed to set when non-existent memory address specifi 
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TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


6818 042752 005037 
6819 042756 005037 
6820 042762 005037 
6821 042766 042701 
6822 042772 010005 
6623 042774 004737 
6824 043000 013702 
6825 043004 062702 
6826 043010 060102 
6827 043012 042702 
6828 043016 013703 
6829 043022 162703 
6830 043026 010237 
6831 043032 010237 
6832 043036 020203 
6833 043040 101007 
6834 043042 020237 
6835 043046 103007 
6836 043050 005737 
6837 043054 001004 
6838 043056 000424 
6839 043060 162702 
6840 043064 000754 


6842 043066 005737 
6843 043072 001420 
6844 043074 005737 
6845 043100 001413 
6846 043102 004737 
6847 043106 010500 
6848 043110 010037 
6849 043114 010201 
6850 043116 004737 
6851 043122 010037 
6852 043126 103403 


041734 
041732 
041736 
170000 
020070 
003072 
000020 
000003 
003076 
000020 
041734 
041736 
003072 


003102 


000020 


003102 
003100 
020052 
041732 


020112 
041736 


3¢ 

sROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 

IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET 

TO THE RELOCATION BASE. 


INPUTS: 


25$: 


355: 
50$: 


RO 
Ri 


OUPTUTS: 
TOPAR6 = ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 

= HIGH ORDER ADDRESS IN NON PAR6 FORMAT 

= LOW ORDER ADDRESS IN NON PAR6 FORMAT 

1 IF GOUD ADDRESS RETURNED 

0 IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 


TOHIADD 
T9LOADD 
C BIT = 
C BIT = 


TOCONVERT: 
SAVREG 


AIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


T9LOADD ;CLEAR LOW ADDRESS 
T9HIADD ;CLEAR HIGH ADDRESS 


TOPAR6 
#tC<7777>,R1 


RS,RO 

RO, T9HIADD 
R2,R1 

PC ,SETMAP 
RO, T9PAR6 
105$ 












SEQ 185 


sSAVE R1-RS UNTIL NEXT RETURN 


sCLEAR PAR6 BIASED ADDRESS 

sFORCE TO LOWER 12 BITS OF ADDRESS 
;SAVE HIGH ORDER ADDRESS BITS 
;SHUTOFF MEMORY MANAGEMENT 

;GET FIRST FREE ADDRESS 

;IN CASE TEST PATTERN=0 

;ADD IN TEST PATTERN 

sMAKE IT MODULO-4 

;GET LAST FREE ADDRESS 

;SAVE AT LEAST 8 WORDS CIN CASE MESSAGE BUFFER) 
;SAVE POSSIBLE LOW ADDRESS 

sSAVE IT IN PAR6 BIASED TOO 

3IS THIS ADDRESS ABOVE FREE SPACE? 
3;BR IF YES 

:IS IT IN FREE SPACE? 

;BR IF YES- ITS GOOD 

sTESTING ABOVE 28K? 

3;BR IF YES 

;BR IF NOT IN FREE SPACE 

sFORCE FIT THE TEST PATTERN 

;TRY THIS TEST PATTERN ADDRESS 


sTESTING ABOVE 28K? 

$ IF NO 

sANY MEMORY ABOVE 28K? 

3;BR IF NO 

;TURN ON MEMORY MANAGEMENT 

;GET HIGH ORDER ADDRESS 

;SAVE POSSISLE HIGH ADDRESS 

;GET COMPUTED LOW ORDER ADDRESS 
sRETURN PAR6 BIASED ADDRESS IN RO 
;COPY PAR6 BIASED ADDRESS 
;BR IF VALID ADDRESS 





SES (SS 
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TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


6853 043130 000241 908: CLC sCLR C BIT FOR FAILURE 
6854 043132 000401 BR 105$ H 
6855 043134 000261 100$: SEC sSET SUCCESS 
6856 043136 000207 105$: RTS PC sRETURN 
6857 
6858 
& eens nee ere ee se ee 





SEQ 186 
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TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


6860 

6861 i+ 

6862 sONLY FOR MESSAGE BUFFER ADDRESSES 

6863 sROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
6864 H DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
6865 H BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 
6866 ; IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET 
6867 ; TO THE RELOCATION BASE. 

6868 ; 

6869 ; INPUTS: 

6870 3 

6871 H RO HIGH ORDER ADDRESS BITS 

6872 : Ri LOW ORDER ADDRESS BITS 

6873 ; 

6874 ; OUPTUTS: 

6875 H T9PAR6 = ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 

6876 F T9HIADD = HIGH ORDER ADDRESS IN NON PAR6 FORMAT 

6877 3 T9LOADD = LOW ORDER ADDRESS IN NON PAR6 FORMAT 

6878 : C BIT = 1 IF GOOD ADDRESS RETURNED 

can H C BIT = 0 IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 
6881 043140 T9CT2: 

6882 043140 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
6883 043144 005037 041734 CLR T9LOADD ;CLEAR LOW ADDRESS 

6884 043150 005037 041732 CLR T9HIADD ;CLEAR HIGH ADDRESS 

6885 043154 005037 041736 CLR TOPARG6 sCLEAR PAR6 BIASED ADDRESS 

6886 043160 042701 170000 BIC #tC<7777>,R1 sFORCE TO LOWER 12 BITS OF ADDRESS 
6887 043164 010005 MOV RO,RS sSAVE HIGH ORDER ADDRESS BITS 
6888 043166 004737 020070 JSR PC ,KTOFF sSHUTOFF MEMORY MANAGEMENT 

6889 043172 013702 003072 MOV FREE ,R2 sGET FIRST FREE ADDRESS 

6890 043176 062702 000020 ADD #16. ,R2 sIN CASE TEST PATTERN=0 

6891 043202 060102 ADD R1,R2 s;ADD IN TEST PATTERN 

6892 043204 013703 003076 25$: MOV FREEHI ,R3 sGET LAST FREE ADDRESS 

6893 043210 162703 000020 SUB #16. ,R3 sSAVE AT LEAST 8 WORDS CIN CASE MESSAGE BUFFER) 
6894 043214 010237 041734 MOV R2,T9LOADD sSAVE POSSIBLE LOW ADDRESS 

6895 043220 010237 041736 MOV R2, T9PAR6 sSAVE IT IN PAR6 BIASED TOO 

6896 043224 020203 CMP R2,R3 sIS THIS ADDRESS ABOVE FREE SPACE? 
6897 043226 101007 BHI 35$ 3BR IF YES 

6898 043230 020237 003072 CMP R2, FREE :IS IT IN FREE SPACE? 

6899 043234 103007 BHIS 50$ ;BR IF YES- ITS GOOD 

6900 043236 005737 003102 TST KTENABLE sTESTING ABOVE 28K? 

6901 043242 001004 BNE 50$ ;BR IF YES 

6902 043244 000424 BR 90$ ;BR IF NOT IN FREE SPACE 

6903 043246 162702 000020 35$: SUB #16. ,R2 sFORCE FIT THE TEST PATTERN 

6904 043252 000754 BR 25$ s;TRY THIS TEST PATTERN ADDRESS 
6905 043254 50$: 

6906 043254 005737 003102 TST KTENABLE sTESTING ABOVE 28K? 

6907 043260 901420 BEQ 100$ ;BR IF NO 

6908 043262 005737 003100 TST KTFLG sANY MEMORY ABOVE 28K? 

6909 043266 001413 BEQ 90$ ;BR IF NO 

6910 043270 004737 020052 JSR PC,KTON sTURN ON MEMORY MANAGEMENT 

6911 043274 010500 MOV R5,RO :GET HIGH ORDER ADDRESS 

6912 043276 010037 041732 MOV RO, T9HIADD s;SAVE POSSIBLE HIGH ADDRESS 

6913 043302 010201 MOV R2,R1 sGET COMPUTED LOW ORDER ADDRESS 
6914 043304 004737 020112 JSR PC ,SETMAP sRETURN PAR6 BIASED ADDRESS IN RO 
6915 043310 010037 041736 MOV RO, T9PAR6 sCOPY PAR6 BIASED ADDRESS 

6916 043314 103403 BCS 105$ BR IF VALID ADDRESS 





' ae nn nn nnn ener ene enc rS SS S sssssssssssssssssssessssssssecnsneeu~meen, 
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TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 





6917 043316 000241 90$: CLC sCLR C BIT FOR FAILURE 
6918 043320 000401 BR 105$ ; 
6919 043322 000261 100$: SEC s;SET SUCCESS 
6920 043324 000207 105$: RTS PC sRETURN 
6921 
ee 


ES LL 





(2 6 ee re ee ee ee 
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TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


6923 
6924 
6925 
6926 
6927 


043326 
043326 
043332 
043336 
043342 
043344 
043350 


043362 
043366 
043372 
043376 


043402 


012701 
012702 
005003 
004737 
112765 
004737 
010265 
004737 
116511 
122124 
001401 
005203 


002206 
000020 


017060 
000000 177776 
017060 
177776 
017060 
177776 


000022 


000002 002246 
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3* 


; 
sROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


. 

;INPUT: 

HY 

: R4 ADDRESS OF THE COMMAND PACKET 

: R5 FIRST DEVICE UNIBUS ADDRESS 
;OUTPUT: 

3 

; CARRY SET - RAM MATCHES PACKET 

: CLR - RAM DOES NOT MATCH PACKET 


; 
sIMPLICIT OUTPUT: 


3 THE TABLE RAMDATA IS FILLED WITH THE 

3 DATA HELD IN RAM. 

3 RAMSIZ SET TO 2 FOR PRAMPKT ROUTINE 

; 

;SIDE EFFECTS: 

8 THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 

H 

TOCKRAM: : 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV #RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
MOV #RMPKTBEG, R2 sBYTE ADDRESS OF FIRST RAM DATA 
CLR R3 ;CLEAR THE ERROR FLAG 
JSR PC ,CHKTSSR sWAIT FOR SSR 
MOVB #0, TSDBCRS) :SET MAINTENANCE MODE 

10$: JSR PC ,CHKTSSR ;WAIT FOR SSR TO SET 
MCV R2,TSDBCRS) ;SELECT NEXT RAM ADDRESS 
JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
MOVB TSBACRS),.CR1) ;READ THE RAM DATA 
CMPB CR1)+,CR4)+ sCOMPARE TO EXPECTED 
BEQ 20$ ;BRANCH IF OK 
INC R3 ;SET ERROR FLAG 

20$: INC R2 sADDRESS OF NEXT RAM LOCATION 
CMP R2, #RMPKTBEG+2 sDONE 2 BYTES? 
BLT 10$ ;BR IF NO 
TST R3 ;WAS AN ERROR FOUND ? 
BEQ 30$ :BRANCH IF NOT 
CLE ;CLEAR CARRY TO SHOW ERROR 
BR 50$ sAND EXIT 

30$: SEC ;SHOW GOOD COMPARE 

50$: MOV #2 ,RAMSIZ sSETUP RAMSIZ 
RTS PC ;RETURN 


;ROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 


TOSWRT : 
SAVREG sSAVE THE REGISTERS 
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TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


6980 
6981 
6982 
6983 
6984 
6985 
6986 
6987 
6988 
6989 
6990 


012701 


010401 
005737 
001404 
010300 
004737 
010001 
012700 
052700 
010021 
005021 
000207 


012700 
013701 
005737 
001402 
013701 
012021 
012021 
012021 
012021 
012021 
000207 


104401 





041670 
100004 
041700 


000010 
041712 


000016 


003102 


020112 


000017 
100000 


041700 
041734 
003102 


041736 





3* 


; 
sROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS 


R3 
R4 


T9SETGET: 


10$: 


3* 


: 
sROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 


é 
go 
T9OCHAR : 


10$: 


ENOTST 
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#TOPACKET,R1 
#100004, (R1)+ 
#TODATA, (R1)+ 
CR1i)+ 
#8.,CR1)+ 
ee 


sSTART OF THE PACKET 


sWRITE CHARACTERISTICS WITH ACK 


sADDRESS OF CHAR DATA BLOCK 


sEXTENDED ADDRESS 


sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER - 


sLENGTH OF MESSAGE BUFFER 


sRETURN 


HIGH ORDER PACKET ADDRESS 
LOW ORDER PACKET ADDRESS 
NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 


R4,R1 
KTENABLE 
10$ 


R3,RO 

PC ,SETMAP 

RO,R1 

oP .GETSTATUS ,RO 
#P .ACK ,RO 
RO,CR1)+ 


(R1)+ 
PC 


#T9DATA,RO 
TOLOADD,R1 
KTENABLE 
10$ 

TOPARG RL 
CRO)+, CR1)+ 
C(RO)+,(R1)+ 
CRO)+,CR1)+ 
CRO)+,CR1)+ 
CRO)+,(R1)+ 
PC 


sSAVE THE REGISTERS 
sGET LOW ORDER ADDRESS 
sTESTING ABOVE 28K? 

;BR IF NO 

sGET HIGH ORDER ADDRESS 


sRETURN ADDRESS BIASED TO PAR6 IN RO 


sGET ADDRESS 


sGET STATUS COMMAND CODE NO IE 


sSET ACK 


sSTORE GET STATUS IN PACKET 


sCLEAR UNUSED WORD 
sRETURN 


sSAVE R1-RS UNTIL NEXT RETURN 
sGET TOPACKET DATA POINTER 


sASSUME NOT ABOVE 28K 
sTESTING ABOVE 28K? 

sBR IF NO 

sSET TEST ADDRESS ABOVE 
sSTORE DATA WORD 1 
sSTORE DATA WORD 2 
sSTORE DATA WORD 3 
sSTORE DATA WORD 4 
sSTORE DATA WORD 5 
sRETURN 


28K 


L10071: 








SEQ 190 


CSETST 
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TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 


7034 
7035 
7036 
7037 
7038 
7039 
7040 
7041 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
7049 
7050 
7051 
7052 
7053 
7054 
7055 


7056 
7057 
7058 
7064 
7065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 
7073 
7074 
7075 
7076 
7077 


7078 
7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
7087 


005037 
012737 
005037 
012700 
004737 
012737 


004737 


012703 
012704 
012764 


004737 
103405 
010001 


104455 
001750 
003550 
011506 


005037 
010465 
004737 


103407 
010001 


104455 
001751 
044447 


002170 
005672 
003100 
044262 
017232 
000002 


044536 
002732 
044220 
000010 


016470 


002170 
177776 
017060 
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002146 


002164 


000006 


SEQ 191 


-SBTTL TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 


3¢ 
TEST DESCRIPTION: 


TEST STEPS: 
REPEAT FOR LOOPCNT 
BEGIN 


=e ee G2 oe Ge Ge Ge GF Gs Gs Ge oF oe Gs os oe oF 


END 
BGNTST 
CLR FATFLG 
MOV #EPRT1,EPRTSW 
CLR KTFLG 
MOV @TST10ID RO 
JSR PC, TSTSETUP 
MOV #2. , LOOPCNT 
T10LOOP: 
JSR PC, TIOREST 
MOV OTSTBLK+10. .R3 
MOV @TLOPACKET .R4 
& MOV #8. , PKBCNT(R4) 
; JSR PC,SOFINIT 
BCS 10$ 
MOV RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 


;Do WRITE CHARACTERISTICS command. 


10$: CLR FATFLG 
MOV R4,TSDBCRS) 
JSR PC,CHKTSSR 
FORCERROR 12$ 
BCS 15$ 
MOV RO,R1 
NEXT .ERRNO 
12$: ERRDF ERRNO, T10SSR,PKTSSR 


This test verifies that a Hardware Initialize command 
invoked after a Write Characteristics command sets up 
the Command, Message and Characteristic image blocks 
in the controller ram correctly. 


Do WRITE CHARACTERISTICS command. 

If the NBA bit in the TSSR register is NOT=0 then Print Error. 
Write to TSSR register to soft initialize the controller 

If controller RAM 310-377 NOT=0 then Print Error 


T10:: 
;CLEAR FATAL ERROR FLAG 
3SET UP ERROR MESSAGE SWITCH 


sHOLD OFF KT1i1 


sASCII MESSAGE TO IDENTIFY TEST 
D0 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


sSET PACKET TO START-UP VALUES 


sSTART OF TEST DATA 
sGET THE ADDRESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


sWRITE TO TSSR TO SOFT INITIALIZE 
;BR IF SOFT INIT OKAY 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL DURING INIT 
TRAP CSEROF 


-WORD 1000 
-WORD SFIERR 
WORD SFIMSG 


s;CLEAR FATAL ERROR FLAG 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

;@Q9DFORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CsEROF 
-WORD 1001 
-WORD T10OSSR 








CZTKEBO TK2S FRT END FUNC #1 
TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 


7088 
7089 


011520 
004737 


104406 
016501 
012702 
032701 
001402 
052702 


020201 
001404 


104456 
001752 
044374 
011520 


104406 


004737 


103405 
010001 


104455 
001753 
003550 
011506 


012704 
005002 
004737 
110465 
116501 


120102 
001406 


104455 
001754 
044335 
016224 
004737 


104406 
104410 


017724 


000000 
000200 
000100 


000100 


016470 


000310 
017060 


177777 
177776 


017724 
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WORD PKTSSR 
JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
MOV TSSRCRS),R1 sGET THE CONTENTS OF TSSR 
MOV @SSR ,R2 sEXPECTED CONTENTS OF TSSR 
BIT #0FL,R1 sIS OFF-LINE BIT SET ? 
BEQ 25$ BRANCH IF NOT OFF-LINE 
BIS #0FL ,R2 sSET OFF-LINE IN EXPECTED DATA 
PY the NBA bit in the TSSR register is NOT=0 then Print Error. 
$: 
FORCERROR 27$ ;9a0 
CMP R2,R1 sDOES EXPECTED MATCH RECEIVED ? 
BEQ 30$ s;OKAY IF MATCH 
NEXT .ERRNO 
27$: ERRHRD ERRNO, TLONBA,PKTSSR ;NBA NOT ZERO 
TRAP CSERHRD 
-WORD 1002 
-WORD T1LONBA 
-WORD PKTSSR 
30$: CKLOOP ;LOOP ON ERROR ? 
TRAP CS$CLP1 
Na to TSSR register to soft initialize the controller 
JSR PC,SOFINIT sWRITE TO TSSR TO SOFT INITIALIZE 
FORCERROR 42$ 3980 
BCS 50$ :BR IF SOFT INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
42$: ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CSEROF 
-WORD 1003 
-WORD SFIERR 
-WORD SFIMSG 
:If controller RAM 310-377 NOT=0 then Print Error 
503: MOV #310,R4 sSTART WITH LOC 310 
CLR R2 sMEMORY EXPECTED SHOULD BE 000000 
JSR PC,CHKTSSR sWAIT FOR SSR READY 
60$: MOVB R4, TSDBHC(RS) ;SELECT RAM ADDRESS 
MOVB TSBALCRS),R1 sREAD LOC CONTENTS 
FORCERROR 62$,NOTSSR 3980 
CMPB R1,R2 sCHECK MEMORY FOR 000000 
BEQ 70$ ;BRANCH IF DATA OKAY 
NEXT .ERRNO 
62$: ERRDF ERRNO, TLOMEM,RAMEXP sMEMORY NOT ZERO AFTER INIT. 
TRAP CSEROF 
-WORD 1004 
-WORD T1LOMEM 
-WORD RAMEXP 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
70$: CKLOOP 
TRAP CSCLP1 
ESCAPE TST sEXIT ON FATAL ERROR 
TRAP CSESCAPE 








CZTKEBO TK25 FRT END FUNC @1 


7128 
7129 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 


7142 
7143 


044150 
044152 


044154 
044160 


044162 


000434 


005204 
020427 
001351 


005737 
001402 
004737 
004737 
103002 
000137 


104432 
000374 


000377 


002170 


017776 
017200 


043646 





82$: 


160$: 


165$: 


INC 


‘CMP 


BNE 
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R4 
R4,8377 
60$ 


FATFLG 
160$ 

PC ,CKDROP 
PC, TSTLOOP 
165$ 
T10LO0P 


TST 


sLOOK AT NEXT RAM LOC. 
sAT TOP OF RAM ADDRESS SPACE 
sBRANCH TILL ALL MEMORY TESTED 


sANY FATAL ERRORS ? 

sBRANCH IF NOT 

sTRY TO DROP THE UNIT 

;DONE ALL ITERATIONS? 

3;BR IF YES 

;LOOP UNTIL ITERATION COUNT DONE 


TRAP 
- WORD 











SEQ 193 


L10075-. 


CSEXIT 
L10075-. 
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7145 ;* 

7146 ;LOCAL STORAGE FOR THIS TEST 

7147 3- 

7148 

7150 044212 -BLKB 10-<.-TUV2AE7> 

7152 044220 TLOPACKET: sCOMMAND PACKET FOR TEST 

7153 044220 100004 «WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
7154 044222 044230 «WORD TLODATA sADDRESS OF CHARACTERISTICS BLOCK 
7155 044224 000000 «WORD 0 

Lt - 044226 000010 -WORD ‘8. sSTARTING VALUE OF BLOCK SIZE 

7158 044230 TLODATA: sCHARACTERISTICS DATA BLOCK 
7159 044230 044242 -WORD T1OBFR sADDRESS OF MESSAGE BUFFER 

7160 044232 000000 -WORD 0 

7161 044234 000016 -WORD 14. sLENGTH OF MESSAGE BUFFER 

vat 044236 000000 000000 -WORD 0,0 

7164 044242 TLOBFR: .BLKW 8. sMESSAGE BUFFER 

7165 ;LOCAL TEXT MESSAGES FOR TEST ’ 

rss ; 

7168 044262 111 156 151 TST10ID: -ASCIZ ‘Initialization After WRITE CHARACTERISTICS’ 

4 044335 111 156 143 T1OMEM: —y ‘Incorrect RAM Date After Init’ 


-EV 
7171 044374 127 122 111 T1ONBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 
fe | 044447 103 157 156 T10SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 


wire 
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7175 
7176 3+ 
7177 3 
ha sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
8 
7180 3- 
7181 
7182 -EVEN 
7183 
7184 044536 TLIOREST: 
7185 044536 SAVREG sSAVE THE REGISTERS 
7186 044542 012701 044220 MOV @T1OPACKET,R1 ;START OF THE PACKET 
7187 044546 012721 100004 MOV #100004, (R1)+ sWRITE CHARACTERISTICS WITH ACK 
7188 044552 012721 044230 MOV @TLODATA,(R1)+ ;ADDRESS OF CHAR DATA BLOCK 
7189 044556 005021 CLR CR1i)« sEXTENDED ADDRESS 
7190 044560 012721 000010 MOV 08.,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
7191 044564 012721 044242 MOV @TLOBFR, (R1)> sADDRESS OF MESSAGE BUFFER 
7192 044570 005021 CLR CR1)+ 
7193 044572 012721 000016 MOV #14. ,CR1)+ s;LENGTH OF MESSAGE BUFFER 
7194 044576 005021 CLR (R1i)+ 
7195 044600 005011 CLR (Ri) 
7196 044602 000207 RTS PC sRETURN 
7197 044604 ENDTST 
044604 L10075: 
044604 104401 CSETST 





> 
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005037 
012737 
005037 
012700 
004737 
012737 


104402 
004737 
004737 


012700 
104441 


104404 
004737 
103405 
010001 


104455 
002115 
003550 
011506 


012704 
004737 
103405 
010001 


104456 
002116 
004754 
011506 


005037 
005037 
012704 
010465 
004737 
005737 
001004 





002170 
005672 
003100 
045670 
017232 
000002 


045736 
045774 


000000 


016470 


045500 
010152 


002170 
002172 
045060 
177776 
017060 
002172 





———_—————_——— re 
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002146 


002164 


¢ 


-SBTTL TEST 11: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


‘ 

sTHIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
sBSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. IT ALSO 
sYERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 


“sMODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 


sCOMMAND DECODING AND HANDLING SEQUENCES. 


TL1LOOP; 


5$: 


10$: 


11$: 


BGNTST 


JSR 
JSR 
SETPRI 


BGNSEG 


JSR 
BCS 
MOV 
ERROF 


MOV 
JSR 
BCS 
MOV 
ERRHRD 


FATFLG 

EPRT1 ,EPRTSW 
KTFLG 
@TST11I0,RO 
PC ,.TSTSETUP 
#2.,LOOPCNT 


PC, TLLREST 
PC, Ti1RST 
#PRIOO 


PC ,SOFINIT 
10$ 


RO,R1 
ERRNO, SFIERR ,SFIMSG 


#T11PK2,R4 

PC ,,WRTCHR 

11$ 

RO,R1 

ERRNO, WRTMSG ,SFIMSG 


FATFLG 
INTRECV 
#T11PACKET ,R4 
R4, TSDBCRS) 
PC .CHKTSSR 
INTRECV 

22$ 


Til:: 
sCLEAR FATAL ERROR FLAG 
+SCT UP ERROR MESSAGE SWITCH 


sHOLD OFF KT11 


sASCII MESSAGE TO IDENTIFY TEST 
sD0 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


TT AAAAAAAAAAE a SUBTEST //////////747/ 
11.1: 


TRAP C$BSUB 
sSET PACKET TO INITIAL VALUES 
sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV @#PRIOO RO 


TRAP C$SPRI 
3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>0> 
TRAP CS$BSEG 
:D0 SOFT INIT OF CONTROLLER 
3BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
«WORD 1101 
-WORD SFIERR 
-WORD SFIMSG 


SUBROUTINE NEEDS PACKET ADDRESS 
sISSVE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
-WORD 1102 

-WORD WRTMSG 
-wORD SFIMSG 


sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIViD FLAG 

sSET UP NEW WRT. SUBS’S “EM. COMMAND 
sSET THE PACKET ADDRE‘ © 
sWAIT FOR SSR TO SET 

sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
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7255 044762 ERRHRD 
044762 104456 
044764 002117 
044766 045576 
044770 011520 
7256 044772 016501 000000 228: MOV 
7257 044776 012702 000200 MOV 
7258 045002 032701 000100 BIT 
7259 045006 001402 BEQ 
7260 045010 052702 000100 BIS 
7262 045014 020201 25$: CMP 
7262 045016 001404 BEQ 
7266 045020 ERRHRD 
045020 104456 
045022 002120 
045024 045522 
045026 011520 
7267 045030 30$: 
7268 045030 ENDSEG 
045030 
045030 104405 
7269 
7270 
7271 045032 598: ENDSUB 
045032 
045032 104403 
7272 
7273 045034 005737 002170 TST 
7274 045040 001402 BEQ 
7275 045042 004737 017776 JSR 
7276 045046 60$: 
7277 045046 EXIT 
045046 104432 
045050 000776 
7278 
7279 
7280 
7281 i 
7282 
7284 045052 -BLK 
7286 045060 TLIPACKET: 
7287 045060 100206 - WORD 
7288 045062 045070 - WORD 
7289 045064 000000 - WORD 
7290 045066 000006 - WORD 
7291 045070 TLIDATA: 
7292 045070 000 T118S0: .BYTE 
7293 045071 000 T11BS1: .BYTE 
7294 045072 000000 T11B8S2: .WORD 
7295 045074 000000 -WORD 
7296 045076 TL1BFR: .BLKW 
7297 
7298 
7300 045476 -BLKB 
7302 045500 TLiPK2: 
7303 045500 100204 - WORD 
7304 045502 045510 - WORD 
Z 





ERRNO, TLININT,PKTSSR 


TSSRCRS),R1 
@SSR Re 


30$ 
ERRNO, TLINBA,PKTSSR 


FATFLG 
60$ 

PC ,CKDROP 
TST 


3? 
s;LOCAL STORAGE FOR THIS TEST 


10-<.-TUV2AE7> 


100206 
TLIDATA 


-Ooo°oo 


10-<,-TUV2AE7> 


100204 
TL10TA 


SEQ 197 

TRAP CSERHRD 
«WORD 1103 
-WORD TLiNINT 
-WORD PKTSSR 

sGET THE CONTENTS OF TSSR 

s;EXPECTED CONTENTS OF TSSR 

3IS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

_3SET OFF-LINE IN EXPECTED DATA 

sDOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 1104 
«WORD T1iNBA 
«WORD PKTSSR 

364040 CCRC END SEGMENT <eceeeeeeeeee 

10000$: 

TRAP CSESEG 


s\\NANANANANNN END SUBTEST \ANANANAANANA 
L10077: 


TRAP CSESUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO OROP THE UNIT 
sALL DONE THIS TEST 
TRAP CsExIT 
-WORD L10076-. 


sCOMMAND PACKET FOR TEST 
sWRITE SUBSYSTEM MEM. COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
;CHARACTERISTICS DATA BLOCK 
s;BSELO BYTE 

sBSEL1 BYTE 

sBSEL1 WORD 


;DATA 
sMESSAGE BUFFER 


sCOMMAND PACKET FOR TEST 
sWRITE CHARA. MEM. CMND., WITH IE, ACK 
sADDRESS OF SEILECT DATA BLOCK 
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7305 045504 000000 «WORD 0O 
Lae 045506 000010 «WORD 8. sSTARTING VALUE OF BLOCK SIZE 
7308 
7309 045510 TL10TA: sSELECT DATA BLOCK 
7310 045510 045076 -WORD T11B6FR sADDRESS OF MESSAGE BUFFER 
7311 045512 000000 -WORD 0O 
7312 045514 000400 -WORD 256. ;LENGTH OF MESSAGE BUFFER 
7313 045516 000000 000000 -WORD 0,0 
7314 
7315 
7316 3+ 
7317 ;LOCAL TEXT MESSAGES FOR TEST 
7319 e 
7320 045522 127 122 111 TL1INBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
7321 045576 105 170 160 TLiNINT: -ASCIZ ‘Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY’ 
7322 045670 102 141 163 TST11ID: -ASCIZ ‘Basic WRITE SUBSYSTEM MEMORY Command’ 
a -EVEN 
4 


-— 
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TEST 11: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


7336 045742 012701 
7337 045746 012721 
7338 045752 012721 
7339 045756 005021 
7340 045760 012721 
7341 045764 005021 
7342 045766 005021 
7343 045770 005011 
7344 045772 000207 


7349 046000 012701 
7350 046004 012721 
7351 046010 012721 
7352 046014 005021 
7353 046016 012721 
7354 046022 012721 
7355 046026 005021 
7356 046030 012721 
7357 046034 005021 
7358 046036 005011 
7359 046040 005037 
7360 046044 000207 


046046 104401 


045060 
100206 
045070 


000006 


045500 
100204 
045510 


000010 
045076 


000400 


045076 


3¢ 


5 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


TLiREST: 


TLIRST: 


VREG 


ENDTST 


@T11PACKET,R1 
#100206, (R1)+ 


@T11DATA,CR1)+ 


(R1)+ 
#6.,(R1)+ 
C(R1)+ 
C(R1i)+ 
(Ri) 

PC 


#T11PK2,R1 
#100204, (R1)+ 
#T11DTA,(R1)+ 
(R1i)+ 
#8.,(R1)+ 
#T11BFR,CR1)+ 


SAVE THE REGISTERS 
START OF THE PACKET 





sWRITE SUBSYSTEM MEM. WITH ACK, IE 


ADDRESS OF DATA BLOCK 


sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 


CLEAR BSELO AND BSEL1 
CLEAR SEL2 

CLEAR DATA AREA 
RETURN 


SAVE THE REGISTERS 
START OF THE PACKET 


sWRITE CHARA. WITH ACK, IE 
sADDRESS OF CHARAISTICS DATA BLOCK 


EXTENDED ADDRESS 


sSIZE OF DATA BLOCK IN BYTES 


sMESSAGE BUFFER ADDRESS 


sLENGTH OF MESSAGE BUFFER 


;RET 


L10076: 





CLEAR 1ST LOC IN MESSAGE BUFFER 
RETURN 


TRAP 





CSETST 
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7376 


7377 
7378 


7379 
7380 
7381 
7382 
7383 





000010 


000031 
046072 
160000 
177776 


001031 
046121 
000000 
000776 


105 
116 
116 
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126 
124 
124 


-SBTTL HARDWARE PARAMETER CODING SECTION 


3+ 

; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


-WORD L10100-L $HARD/2 


BGNHRD 
L$HARD:: 
GPRMA HPM1,0,0,160000,177776, YES :GET TSBA/TSOB sn 
~WORD 
- WORD 
. WORD 
GPRMA = HPM2,2,0,0,776,YES ;GET VECTOR ADDRESS. 
- WORD 
.- WORD 
. WORD 
. WORD 
$ GPRMD HPM3,4,0,340,0,7.,YES ;GET INTERRUPT PRIORITY. 
ENDHRD 
-EVEN 
L10100: 


HPM1 : -ASCIZ ‘DEVICE ADDRESS (TSSR) ' 

HPM2 : -ASCIZ ‘INTERRUPT VECTOR ' 

HPM3: —— ‘INTERRUPT PRIORITY ' 
-EVEN 






SEQ 200 








ADORESS. 


T$LOLIM 
TS$HILIM 


TSCODE 
HPM2 
T#LOLIM 
T$HILIM 
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La -SBTTL SOFTWARE PARAMETER CODING SECTION 

6 

7387 pee 

7388 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

7389 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

7390 s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

7391 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

7392 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

7393 ; WITH THE OPERATOR. 

7394 s-° 

7395 046176 BGNSFT 
046176 000006 -WORD L10101-L$SOFT/2 
046200 L$SOFT:: 

7396 046200 GPRML SPM1,0,-1, YES sGET RAM DUMP TEST FLAG 
046200 000130 «WORD TS$CODE 
046202 046214 «WORD SPM1 
046204 177777 - - WORD -1 

7397 046206 GPRML SPM4,2,-1,YES ; GET ITERATION CONTROL. 
046206 001130 -WORD TSCODE 
046210 046260 -WORD SPM4 
046212 177777 - WORD -1 

7398 F GPRMD SPM6 ,.4,0,7777,0, 7777, YES ; GET LOCAL ERROR LIMIT 

7399 ; 3 GPRMD SPM7,6,0,7777,0,7777,YES ; GET GLOBAL ERROR LIMIT 

7400 046214 ENDSFT . 

-EV 
046214 L10101: 

7401 

7402 

7403 046214 105 116 101 SPM1: -ASCIZ ‘ENABLE CONTROLLER RAM DUMP ON ERROR’ 

7404 046260 111 116 110 SPM4: -ASCIZ ‘INHIBIT ITERATIONS : 

7405 046310 120 105 122 SPM6: -ASCIZ ‘PER TEST ERROR LIMIT ‘ 

7406 046340 120 105 122 SPM7: -ASCIZ ‘PER UNIT ERROR LIMIT ‘ 

7407 EVEN 

7408 -SBTTL PATCH AREA 

7409 3+ 

7410 sDISPATCH TABLE 

7411 3 

7412 ; **&* MOVE TO FRONT OF PROGRAM FOR RELEASE «a 

7413 s- 

7414 

7415 046370 DISPATCH TESTNO 
046370 000013 . WORD 11 
046372 L$DISPATCH:: 

046372 023470 «WORD Ti 
046374 023726 - WORD T2 
046376 024700 - WORD T3 
046400 026164 -WORD T4 
046402 030216 - WORD T5 
046404 0314 6 «WORD T6 
046406 0335.2 .- WORD T7 
046410 036714 «WORD T8 
@46412 040432 . WORD T9 
046414 043612 ; «WORD T10 
046416 044606 . WORD Til 

7416 

7417 F 

7418 ; FINALLY A GENEROUS PATCH AREA. 
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PATCH AREA 

7419 3 

7420 ; AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7” HACK 

7421 + DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 

7422 i 

7423 ‘ 

7424 046420 PATCH: : 

7425 3 .IF NZ, .&377 

7426 Fy 2.137741 

7427 3 -ENOC 

7428 046420 LAST AD ;SET LAST USED ADDRESS. . 

EVEN 

046420 046436 -WORD TSFREE 
046422 000005 ' -WORD TS$SIZE 
046424 L$LAST:: 

7429 -SBTTL HARD CODED P-TABLE 

7430 s++ 

ee 3 DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 

432 t-- 

7433 046424 BGNSETUP 1 

7434 046424 BGNPTAB 
046424 000000 «WORD O 
046426 000003 «WORD L10104-./2-1 
046430 L10102: 

7435 046430 172522 . WORD 172522 

7436 046432 000224 - WORD 224 

7437 046434 000240 .- WORD PRIOS 

7438 046436 . ENDPTAB 
046436 

7439 046436 ENDSETUP 

7440 

7441 000001 END 


— 
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SYMBOL TABLE 


ADDSSR 011612 G CsAU = 000052 DEBUGM 011304 FATERR= 000060 HIADDR= 001400 
ADR == 000020 G CSAUTO= 000061 DEVCNT 002166 G FATFLG 002170 G HIMEM = 007776 
AMBTSS 006156 CSBRK = 000022 DEVORO 023420 FERCM 011374 HOE = 100000 G 
ASSEMB= 000010 CSBSEG= 000004 DEVNRD 023337 FIFEXP 011642 G HPM1 046072 
A1716 = 000003 CSBSUB= 000002 DEVNXR 023255 FIFIMS 011714 HPM2 046121 
BADDAT 003110 G CSCEFG= 000045 DEVONL 023173 FIF2MS 011763 HPM3 046145 
BADSSR 016374 G CSCLCK= 000062 DEVSUM 023136 FILLME 020216 IBE = 010000 G 
BAR = 174402 CSCLEA= 000012 OFPTBL 002124 G FNOINT 004113 IDU = 000040 G 
BENBSW 002174 G C$CLOS= 000035 DIAGMC= 000000 FORCER 002144 G IER = 020000 G 
BIE = 040000 CSCLP1i= 000006 DICEA = 000001 FREE 003072 G IFAULT 004154 
BITO = 000001 G CSCVEC= 000036 OLCYL = 000177 FREEHI 003076 INCERK 017566 
BITOO = 000001 G CSDCLN= 000044 DLONER= 100200 FRESIZ 003074 G INTCPC 016644 
BITO1 = 000002 G CsD0DU= 000051 DLERR = 177730 FUSI 004015 INTFLA 016641 
BITO2 = 000004 G C$DRPT= 000024 DLGETS= 000004 FSAU§ = 000015 INTMAS 016640 
BITO3 = 000010 G CsDU = 000053 DLROHD= 000010 F$AUTO= 000020 INTR 016712 G 
BITO4 = 000020 G CSEDIT= 000003 DLRDNH= 000016 F$BGN = 000040 INTREC 002172 G 
BITOS = 000040 G CSERDF= 000055 DLSR = 000013 FS$CLEA= 000007 INTVEC 016642 
BITO6 = 000100 G CSERHR= 000056 DLUN = 000006 F$OU = 000016 INTX 004176 
BITO7 = 000200 G CSERRO= 000060 DSBINT 016700 FSEND = 000041 IOKCKI= 000200 
BITO8 = 000400 G CSERSF= 000054 DUAD12 004541 F$HARD= 000004 IOKSTP= 000001 
BITO9 = 001000 G CSERSO= 000057 DUFLG 003060 G FSHW = 000013 IPRI 002160 G 
BITi = 000002 G CSESCA= 000010 DUMMY 003030 FSINIT= 000006 ISR = 000100 G 
BIT10 = 002000 G CSESEG= 000005 EF .CON= 000036 G F$JMP = 000050 IVEC 002156 G 
BIT11 = 004000 G CSESUB= 000003 EF .NEW= 000035 G F$MOD = 000000 IXE = 004000 G 
BIT12 = 010000 G CSETST= 000001 EF .PWR= 000034 G F$MSG = 000011 I$SAU = 000041 
BIT13 = 020000 G CSEXIT= 000032 EF .RES= 000037 G F$PROT= 000021 ISAUTO= 000041 
BIT14 = 040000 G CSGETB= 000026 EF .STA= 000040 G FS$PWR = 000017 ISCLN = 000041 
BIT15 = 100000 G C$GETW= 000027 EMAXDU 017521 FSRPT = 000012 IsOU = 000041 
BIT2 = 000004 G C$GMAN= 000043 EN = 000000 F$SEG = 000003 ISHRD = 000041 
BITS = 000010 G C$GPHR= 000042 ENAINT 016646 F$SOFT= 000005 ISINIT= 000041 
BIT4 = 000020 G C$GPLO= 000030 ENVIRN 021356 F$SRV = 000010 I$MOD = 000040 
BITS = 000040 G C$GPRI= 000040 EPRTSW 002146 G F$SUB = 000002 ISMSG = 000041 
BIT6 = 000100 G CSINIT= 000011 EPRT1 005672 FSSW = 000014 I$PROT= 000040 
BIT? = 000200 G C$INLP= 000020 EPRT2 005672 F$TEST= 000001 ISPTAB= 000041 
BITS = 000400 G CSMANI= 000050 EPRT3 005672 GODAT 003112 G ISPWR = 000041 
BIT9 = 001000 G C$MEM = 000031 ERCM 011405 GERRMA 002142 G ISRPT = 000041 
BOE = 000400 G CSMSG = 000023 ERRHI 002202 G GETPAT 020722 G ISSEG = 000041 
BRINIT 004355 CSOPEN= 000034 ERRK 017500 GETSEL 021004 G ISSETU= 000041 
BSELO = 000000 CSPNTB= 000014 ERRLO 002204 G GS$CNTO= 000200 ISSFT = 000041 
BSEL1 = 000001 C$PNTF= 000017 ERRNO = 002120 G$DELM= 000372 I$SRV = 000041 
CHKAMB 016540 C$PNTS= 000016 ERRVEC= 000004 G G$DISP= 000003 I$SUB = 000041 
CHKMAN 021226 G C$PNTX= 000015 ERTABE 003330 GSEXCP= 000400 ISTST = 000041 
CHKTSS 017060 CsQIO = 000377 ERTABL 003130 G$HILI= 000002 J$JMP = 000167 
CKDROP 017776 C$RDBU= 000007 ESUM 017502 G$LOLI= 000001 KIPARO= 172340 
CKEMAX 017624 C$REFG= 000047 EVL = 000004 G G$NO = 000000 KIPARi= 172342 
CKMSG 011032 G C$RESE= 000033 EXBCNT= 000010 GS$OFFS= 000400 KIPAR2= 172344 
CKMSG2 011152 G CSREVI= 000003 EXPBRE 016176 G GSOFSI= 000376 KIPAR3S= 172346 
CKRAM 010354 G CSRFLA= 000021 EXPD 002176 G G$PRMA= 000001 KIPAR4= 172350 
CKRAM2 010730 G C$RPT = 000025 EXPGOT 004431 G$PRMD= 000002 KIPARS= 172352 
CMPMEM 020402 CS$SEFG= 000046 EXPGT2 004465 G$PRML= 000000 KIPAR6= 172354 
CONFIG 020044 C$SPRI= 000041 EXPMSG 002266 G G$RADA= 000140 KIPAR7= 172356 
COUNT 002254 G C$SVEC= 000037 EXPREC 016170 G G$RADB= 000000 KIPORO= 172300 
CSR = 174400 C$TPRI= 000013 EXTA 005232 G$RADD= 000040 KIPOR1= 172302 
CSRADD 002154 G DAR = 174404 EXTEND 005230 G$RADL= 000120 KIPDR2= 172304 
CTAB 003116 G DATA 002256 G ESEND = 002100 G$RADO= 000020 KIPOR3S= 172306 
CTABE 003130 G DATAFL 014710 E$LOAD= 000035 G$XFER= 000004 KIPOR4= 172310 
CTABM 003116 G DATASC 020760 FATCHK 017724 GS$YES = 000010 KIPORS= 172312 
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KIPOR6= 172314 LSREV 002010 G L10057 032124 NULCR 004426 PRIO4 = 000200 G 
KIPOR7= 172316 LSRPT 022674 G L10060 032312 NXM == 004000 PRIOS = 000240 G 
KTENAB 003102 G L$SOFT 046200 G L10061 036712 NXR 003636 PRIO6 = 000300 G 
KTFLG 003100 G L$SPC 002056 G L10062 034120 NXRERR 005176 G PRIO7 = 000340 G 
KTINIT 021444 L$SPCP 002020 G L10063 034512 NXRX 003675 PRMESS 013702 
KTOFF 020070 L$SPTP 002024 G L10064 035402 NXTU 022032 PRMNO 002264 G 
KTON 020052 L$STA 002030 G L10065 035630 OFL = 000100 PRMSGE 015246 G 
LERRMA 002140 G L$SW 002134 G L10066 040430 ONEFIL= 000000 PRMSGO 015426 
LERRNO= 000000 L$TEST 002114 G L10067 037176 OSAPTS= 000000 PRMSG1 015473 
LISTAL= 000001 L$TIML 002014 G L10070 037434 OSAU = 000001 PRMSG2 015531 
LOE = 040000 G LSUNIT 002012 G L10071 043610 OSBGNR= 000001 PROASC 014540 
LOOPCN 002164 G L10000 002132 L10072 041022 O$BGNS= 000001 PRIASC 014605 
LOOPCO 012600 L10001 002144 L10073 041322 OsDU = 000001 PST32W 003104 G 
LOOPFL 003114 G L10002 005226 L10074 041630 OSERRT= 000000 PUNIT 022320 
LOT = 000010 G L10003 011516 L10075 044604 OSGNSW= 000001 PW.D11= 000021 
L$SACP 002110 G L10004 011546 L10076 046046 OSPOIN= 000001 PW.D13= 000022 
L$APT 002036 G L10005 011564 L10077 045032 O$SETU= 000001 PW.D22= 000020 
L$AU 022366 G L10006 011572 L10100 046072 PASRPT 022064 PW.NOP= 000000 
L$AUT 002070 G L10007 011610 L10101 046214 PATCH 046420 G PW.NO1= 000023 
L$AUTO 022572 G L10010 011626 L10102 046430 PATDAT 020756 PW.RDE= 000024 
L$sCCP 002106 G L10011 011640 L10104 046436 PC.ERA= 002400 PW.RDR= 000001 
LSCLEA 022646 G L10012 011712 MEMADD 013426 G PC.IER= 002000 PW.RDS= 000005 
L$COo 002032 G L10013 012062 MENASC 021175 PC.NOO= 001000 PW.RFI= 000003 
L$DEPO 002011 G L10014 012576 MENERR 021122 PC.REL= 000000 PW.WCT= 000006 
L$DESC 0C3342 G L10015 013424 MENRES 021224 PC .REW= 000400 PW.WFI= 000004 
L$DESP 002076 G L10016 013446 MESBFA 002716 G PKBCNT= 000006 PW.WFM= 000007 
L$DEVP 002060 G L10017 016174 MESBFN 014460 PKHI = 000004 PW.WMI= 000010 
L$DISP 046372 G L10020 016202 MESHEA 014643 PKLOW = 000002 PW.WNP= 000011 
L$OLY 002116 G L10021 016210 MMVEC = 000250 PKTADD 007116 PW.WTR= 000002 
L$OTP 002040 G L10022 016222 MPR = 174406 PKTFRM 007060 P.ACK = 100000 
L$DTYP 002034 G L10023 016244 MSA.FR= 000006 PKTGET 011550 G P.CMD = 000037 
L$DU 022464 G L10024 016272 MSA.NO= 000000 PKTMES 011574 G P.CONT= 000012 
L$DUT 002072 G 10025 016432 MSA.NR= 000004 PKTNEW 007153 P.CVC = 040000 
L$OVTY 003334 G L10026 016742 MSA.VO= 000002 PKTRAM 004643 G P.FMT = 000140 
LS€F 002052 G L10030 022316 MSGEXP 011630 G PKTSSR 011520 G P.FORM= 000011 
LSENVI 002044 G L10031 022462 MSGLOO 012536 G PNT = 001000 G P.GETS= 000017 
LSETP 002102 G L10032 022570 MSGSTA 012022 G PRAMPK 013450 P.IE = 000200 
LSEXP1 002046 G L10033 022644 MSGSUB 013414 G PRBEXP 016164 P.INIT= 000013 
LSEXP4 002064 G L10034 022672 MS.ATT= 000006 PRBMSG 016032 P.MODE= 007400 
LSEXPS 002066 G L10035 023134 MS .EXT= 000200 PRBREC 016166 P.OPP = 020000 
L$HARD 046052 G L10036 023724 MS.RSD= 000001 PRBTOT 016117 P.POSI= 000010 
L$HIME 002120 C L10037 023572 MS.RSF= 000020 PRBYTE 015616 G P.READ= 000001 
L$HPCP 002016 G L10040 023654 MS.RST= 000010 PRI = 002000 G P.SWB = 010000 
LS$HPTP 002022 G L10041 024676 NBA = 002000 PRIADD 007532 P.WRIT= 000005 
L$HW 002124 G L10042 024116 NEWPAS 022020 PRIAO 007602 P.WRTC= 000004 
L$ICP 002104 G L10043 024310 NODEV 003062 G PRIBXO 007164 G P.WRTS= 000006 
LS$INIT 021606 G L10044 024510 NOINIT 004233 PRIEQU 007432 ave 002152 G 
L$LADP 002026 G L10045 026162 NOINTR 004117 PRIPKT 006712 G RAMASC 013616 
L$LAST 046424 G L10046 025240 NOITS 002136 G PRIRAM 007440 RAMDAT 002206 G 
L$LOAD 002100 G L10047 025560 NOMAN 021262 PRITAD 007646 RAMER 010456 G 
L$LUN 002074 G L10050 030214 NP.IR = 000200 PRITSS 005264 RAMERR 016204 G 
LSMREV 002050 G L10051 026506 NP .LOO= 000040 PRITO 007716 RAMEXP 016224 G 
L$NAME 002000 G L10052 026772 NP .QUT= 000100 PRIXOR 007314 G RAMFHR 014362 
L$PRIO 002042 G L10053 027220 NP .WRP= 000020 PRIOO = 000000 G RAMFOR 007470 
L$PROT 021576 G L10054 031424 NSI 004050 PRIO1 = 000040 G RAMHLD 010640 
L$PRT 002112 G L10055 033500 NSINIT 004305 PRIO2 = 000100 G RAMIOP 010644 
L$REPP 002062 G L10056 031700 NUL 004425 PRIO3 = 000140 G RAMPD 010715 
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RAMRSH 010642 $0.IDB= 000010 TSSX 003716 T$$AU = 010031 T3PACK 025620 
RAMSIZ 002246 G SO.IFB= 000002 TSTBLK 002720 G T$$AUT= 010033 T3SSR 025655 
RAMTAD 016212 G SO.IFP= 000001 TSTCNT 002162 G T$$CLE= 010034 T3TSBA 026071 
RBPCRA 014755 S0.ILD= 000020 TSTEND 017442 T$$DAT= 010104 13.1 024734 
RCVHIA 002250 G SO.ION= 000040 TSTFLA 002260 G T$$DU = 010032 13.2 025254 
RCVLOA 002252 G SO.IRD= 000100 TSTLOO 017200 G T$$HAR= 010100 14 026164 G 
RDERR 005104 SO.IRW= 000004 TSTPTR 002262 G T$$HW = 010000 T4BFR 027274 
READ = 000014 SO.ISP= 000200 TSTSET 017232 G T$$INI= 010030 T4DATA 027260 
READY = 000001 $1.ICE= 002000 TST1ID 023704 T$$MSG= 010025 T4INT 027745 
RECMSG 002432 G $1.IEO= 010000 TST10I 044262 T$$PC = 000001 T4LOOP 026220 
RECV 002200 G $1.IFM= 001000 TST11I 045670 T$$PRO= 010027 T4NBA 027406 
REGSAV 020662 $1.IHE= 000400 TST2ID 024672 T$$PTA= 010103 T4PACK 027250 
REWIND 010254 G $1.IID= 004000 TST3ID 026143 T$$RPT= 010035 T4REST 030146 
RMCHBE= 000167 $1.I1R= 020000 TST4ID 030117 T$$SEG= 010000 T4sP 027270 
RMCHEN= 000200 $1.I2R= 040000 TSTSID 031407 T$$SOF= 010101 T4SSR 027656 
RMMSGB= 000104 $1.PAR= 100000 TST6ID 033401 T$$SRV= 010026 T4TSBA 030034 
RMMSGE= 000117 S2.ATI= 000010 TST7ID 036537 T$$SUB= 010077 T4.1 026220 
RMPKTB= 000020 $2.BTI= 000004 TST8ID 040272 T$$SW = 010001 T4.2 026522 
RMPKTE= 000027 S2.DIM= 000200 TST9ID 042100 T$$TES= 010076 14.3 026774 
RMR = = 010000 S2.ILW= 000100 TTIBFR= 177562 G T1 023470 G T42DAT 027314 
RWPACK 010350 S2.INR= 000020 TTICSR= 177560 G TiLOOP 023524 T42D0N= 027330 
sc = 100000 S$2.0UT= 000040 TTIVEC= 000060 G T1.1 023526 T42NBA 027330 
SCE = 020000 S2.UND= 000003 TTOBFR= 177566 T1.2 023606 T42REJ 027461 
SCME 004711 TBLEND= 003030 G TTOCSR= 177564 T10 043612 G T44REJ 027560 
SDELAY 010150 TCOASC 006017 TUV2A 002000 G TLOBFR 044242 TS 030216 G 
SEEK = 000006 TCOCOD 006220 T$ARGC= 000003 TLODAT 044230 TSBFR 030742 
SELASC 021170 TEMP1 003064 G T$CODE= 001130 T10L00 043646 TSDATA 030730 
SELDAT= 000004 TEMP2 003066 G TSERRN= 002120 TLOMEM 044335 TSLOOP 030252 
SEL2 = 000002 TERCLS= 000016 TSEXCP= 000000 TLONBA 044374 TSNMSG 031310 
SETMAP 020112 TESTNO= 000013 T$FLAG= 000040 TLOPAC 044220 TSNVCK 031131 
SETU 022116 TEXASC 005756 TSFREE= 046436 TLORES 044536 TSPACK 030720 
SFFMSG 011566 G TFCASC 006060 T$GMAN= 000000 T1OSSR 044447 TSSSR 031221 
SFHERR 003603 TIMEXP 016246 G TSHILI= 000776 T1i1 044606 G TSVCK 030762 
SFIERR 003550 TIMSGO 016274 T$LAST= 000001 TL1BFR 045076 TSVCK2 031055 
SFIMSG 011506 G TINERR 011473 T$LOLI= 000000 T11BSO 045070 i) 031426 G 
SFPTBL 002134 G TKB == 177562 T$LSYM= 010000 T118S1 045071 T6BFR 032352 
SIFLAG 003106 G TKS = 177560 T$LTNO= 000013 T118S2 045072 T6DATA 032340 
SIMSG 011440 TMPBFR 002576 G T$NEST= 000000 T1iDAT 045070 T6INT 033227 
SKIPT 003332 TNAM 017426 T$NSO = 000000 T11DTA 045510 T6LOOP 031462 
SOFINI 016470 G TPB == 177566 T$NS1 = 000005 T11L00 044642 T6NBA 032406 
SPACE 007760 G TPS = 177564 T$NS2 = 000002 TLiNBA 045522 T6NINT 033136 
SPM1 046214 TRANST 002134 G T$NS3 = 000003 TI1NIN 045576 T6PACK 032330 
SPM4 046260 TSBA = 177776 G T$PCNT= 000000 TLiPAC 045060 T6REST 033426 
SPM6 046310 TSBAH = 177777 G T$PTAB= 010103 T1iPK2 045500 T6SSR 033047 
SPM7 046340 TSBAL = 177776 G T$PTHV= 000001 TL1IRES 045736 T6TSBA 033316 
SRO = 177572 TSBAM2 024530 T$PTNU= 000001 TLIRST 045774 T6.1 031462 
SRi == 177574 TSBAM3 024612 T$SAVL= 177777 T11.1 044642 16.2 031714 
SR2 = 177576 TSOB = 177776 G T$SEGL= 177777 T2 023726 G 16.3 032126 
SR3 = 172516 TSDBH = 177777 G T$SEKO= 010000 T2LO0P 023764 T62DAT 032372 
SSR = 000200 TSOBL = 177776 G T$SIZE= 000005 T2.1 023744 T62D0N= 032406 
STATCO 012064 TSFCOD 006560 T$SUBN= 000001 T2.2 024120 T62REJ 032461 
SVCGBL= 000000 TSREJ = 000006 T$TAGL= 177777 T2.3 024312 T63REJ 032560 
SVCINS= 000001 TSSDEF 006127 T$TAGN= 010105 T3 024700 G T64REJ 032653 
SVCSUB= 000001 TSSR = 000000 G TSTEMP= 000014 T3INT 025733 T6SREJ 032751 
SVCTAG= 000001 TSSRBI 003400 G T$TEST= 000013 T3LOOP 024734 17 033502 G 
SVCTST= 000001 TSSRFO 005736 T$TSTM= 177777 T3NBA 025630 T7BFR 035662 
S$LSYM= 010000 TSSRH = 000001 G T$TSTS= 000001 T3NINT 026011 T7BUFR 035724 
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T7DATA 035650 T8SSR 040014 T9.1 040466 XFERAS 016434 X$FALS= 
T70TA 035712 T8TSBA 040222 T9.2 041036 XNXM 017120 
T7INT 036450 T8.1 036750 ’ 19.3 041336 XORBFO 007246 
T7LOOP 033536 18.2 037212 T91L00 040610 XORFOR 007364 
T7MBF 6035744 TB2REJ 037622 T92L00 041154 XSTO = 000006 G 
T7NBA 036041 T83REJ 037703 T93L00 041404 XST1 = 000010 G 
T7NINT 036357 T84REJ 037733 T94TST 041742 XST2 = 000012 G 
T7NNBA 036123 040432 G VAM = 000200 G XST3 = 000014 G 
T7PACK 035640 T9BFR 041712 UNITN 002150 G XST4 = 000016 G 
T7PKT 035702 T9BKGN 042367 UNREC = 000006 XSOBOT= 000002 
T7RST 036566 T9BLK 041744 USI 004021 XSOCON 015022 
T7RT2 036640 TOCHAR 043546 WAITF 016744 G XSOEOT= 000001 
T7SSR 036270 TOCKRA 043326 G WC .IFA= 000200 XSOIE = 000040 
T7SSRM 036200 TOCONV 042746 WC .IFE= 000002 XSOILA= 000400 
17.1 033536 T9CT2 043140 WC.IGO= 000001 XSOILC= 001000 
17.2 034122 T9DATA 041700 WC .IRE= 000010 XSOLET= 020000 
17.3 034514 T9DPR 042546 WC .IRW= 000004 XSOMOT= 000200 
17.4 035404 T9GETS 042126 WC.IOT= 000100 XSONEF = 002000 
T8 036714 G TOHIF., 041732 WC .I1T= 000040 XSOONL= 000100 
TOBFR 037472 TOKT 041740 WC.ISR= 000020 XSOPED= 000010 
T8BF2 037542 T9LOAD 041734 WF.IED= 000010 XSORLL= 010000 
T8DATA 037460 T9LOOP 040466 WF ..IER= 000004 XSORLS= 040000 
T8DTA 037530 TOMSGB 042271 WF .IHI= 000200 XSOTMK= 100000 
T8LOOP 026750 TONINT 042455 WF .IRE= 000040 XSOVCK= 000020 
TENBA 037562 TONXM 042637 WF .IWF= 000020 XSOWLE= 004000 
T8NINT 040144 TOPACK 041670 WF ..IWR= 000100 XSOWLK= 000004 
T8PACK 037450 TOPAR6 041736 WF .I3R= 000002 XS1CON 015067 
T8PK2 037520 T9SETG 043504 WF .I4R= 000001 XS2CON 015134 
TEREST 040324 TOSWRT 043436 WRTCHR 010152 G XS3CON 015201 
TERT2 040366 T9TBE 042076 WRTERR 005011 XXCOMM 003070 G 
T8SR2 040070 TOWRTS 042202 WRTMSG 004754 X$ALWA= 000000 
- ABS. 046436 000 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 35592 WORDS ( 140 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:09:31 
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